Var s: string; i: integer; c1,c2: char;

Begin

Write ('Введите строку: ');

Readln (s);

Write ('Буква для удаления: ');

Readln (c1);

Write ('Буква для вставки: ');

Readln (c2);

For i:= 1 to length (s) do

if s[i]= c1 then s[i]:= c2;

Write ('Итоговая строка: ',s);

end.