var

  s: string;

  i: integer;

begin

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

  readln(s);

  for i:= 1 to length(s) do 

    if s[i] = 'A' then s[i]:= 'B';  {Меняем каждую найденную большую английскую букву A на большую английскую букву B}

  writeln('Полученная строка:   ', s);  //Выводим полученную строку

end.