Задать произвольный текст. Заменить в тексте часть ''дом'' на ''род'' По образцу Замените цифру 2 на слово дом, а слово два на слово род.
И чтобы в окне вывода при написании слова дом, оно менялось на слово род.
var st: string;
i: integer;
begin
writeln('Введите строку');
readln(st);
i := 1;
while i <= length(st) do
begin
if (st[i] = '2') then
begin
//замена символов
delete(st, i, 1);
insert('два', st, i);
end;
//переход к следующему символу
i := i + 1;
end;
writeln('Преобразованная строка:');
writeln(st);
end.

innaecaln    1   07.12.2020 20:42    0