Написать программу заменяющую одну букву на другую и подсчитывающую сколько раз ее заменили. (Букву любую на любую другую)

var

ch:integer;

 s: string;

 i: byte;

 begin

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

 ReadLn(s);

 for i := 1 to Length(s) do

   if s[i] = 'a' then

     s[i] := 'o';

ch++;

 WriteLn('Полученная строка:');

 WriteLn(s);

 WriteLn(ch);

end.

Объяснение: