paskal abc
заменить в строке все буквы а на буквы б

var

 s: string;

 i: integer;

begin

 Write('s = '); Readln(s);

 for i := 1 to Length(s) do

   if s[i] = 'а' then s[i] := 'б';

 Write(s);

 Readln

end.