В строке символов заменить все буквы "А" на "Б".
(решить с помощью составления новой строки)

var  s1,s2:string;  i:integer;begin  Write('Введите строку: '); Readln(s1);  s2:='';  for i:=1 to Length(s1) do    if s1[i]='А' then s2:=s2+'Б'    else s2:=s2+s1[i];  Writeln('Результат: ',s2)end.ПримерВведите строку: АБРАКАДАБРАРезультат: ББРБКБДББРБ