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

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

                begin

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

     

    Uses Crt;

          c1,c2, i,k:integer; 

    writeln;

     

        readkey;

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

                     a[i]:='о';     

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

            begin  

     

     

     

  • Program Stroka;

                 end;

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

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

    c1:=0;c2:=0;

        readln(a);

     

     

     

                      c2:=c2+1;  

                   c1:=c1+1;

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

     

    var a:string;

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

                   a[i]:='а';

    end. 

    begin

     

     

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

        k:=length(a);

        clrscr;

     

     

             end;