Дана символьная строка всюду букву А поменять на букву В. 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.