Дана символьная строка всюду букву А поменять на букву В

program zz1;

var s:string; / / задаем переменную строкового типа

i:integer; / / задаем переменную целого типа

begin

write (' введите строку ');

read (s); / / вводим с клавиатуры строку

for i:=1 to length (s) do / / организуем цикл, в котором переберем все символы в исходной строке от первого до последнего

if s[i] = 'А' then begin delete (s, i, 1); insert ('Б', s, i); end; / / производим замену, если находим букву А, то удаляем ее и на ее место ставим букву Б

write ('полученная строка = ', s); / / выводим ответ

end.