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

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.