Составьте программу замены в слове, введенном с клавиатуры, всех букв"и" на"а"и"а"на"о". сосчитать количество замен. отладка программы для слова"накидка"

Program Stroka;

Uses Crt;

var a:string;

c1, c2, i, k:integer;

begin

clrscr;

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

readln (a);

k:=length (a);

c1:=0; c2:=0;

/ / Первый проход меняем "и" на "a"

for i:=1 to k do if (a[i]='и') or (a[i]='И') then

begin

a[i]:='а';

c1:=c1+1;

end;

/ / Второй проход меняем "а" на "о"

for i:=1 to k do if (a[i]='а') or (a[i]='А') then

begin

a[i]:='о';

c2:=c2+1;

end;

writeln;

writeln ('Строка после всех замен:', a);

writeln ('Замен и на а:', c1);

writeln ('Замен a на о:', c2);

readkey;

end.