Паскаль: 1) дана строка символов, в которой есть хотя бы вхождение 'abc'. Все вхождения 'abc' заменить на 'def' 2) в заданном тексте все встретившееся буквы 'a' удалить, а буквы 'd' удвоить

Предыдущий
вопрос Следующий
вопрос

1) Пример кода на Паскале для замены всех вхождений 'abc' на 'def' в заданной строке символов:

var
str: string;
begin
writeln('Введите строку символов:');
readln(str);
repeat
str := StringReplace(str, 'abc', 'def', [rfReplaceAll]);
until Pos('abc', str) = 0;
writeln('Результат замены: ', str);
end.

2) Пример кода на Паскале для удаления всех букв 'a' и удвоения всех букв 'd' в заданном тексте:

var
text, newText: string;
i: integer;
begin
writeln('Введите текст:');
readln(text);
newText := '';
for i := 1 to Length(text) do
begin
if text[i] = 'a' then
continue;
newText := newText + text[i];
if text[i] = 'd' then
newText := newText + text[i];
end;
writeln('Результат обработки: ', newText);
end.