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

Procedure GhiShi(Var S : String; Var N : Byte);
Var i : Byte;
Begin
  N:=0;
  For i:=1 to Length(S)-1 do
    If (S[i] in ['ж','ш']) and (S[i+1]='ы') then
    Begin
      S[i+1]:='и';
      Inc(N);
    end;
end;

Var St : String;
k : Byte;
Begin
  { Readln(St); }  St:='"жы" и "шы" пишы через "и"';
  GhiShi(St,k);
  Writeln(St);
  Writeln('Количество ошибок: ',k);
end.