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

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.