Составьте программу замены в слове, введенном с клавиатуры…

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.