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

Var

a, count:longint;

s:string;

begin

writeln ('введите строку') ;

count:=0;

read (s) ;

while pos ('жы', s) >0 do

begin

inc (count) ;

a:=pos ('жы', s) ;

delete (s, a, 2) ;

insert ('жи', s, a)

end;

while pos ('шы', s) >0 do

begin

inc (count) ;

a:=pos ('шы', s) ;

delete (s, a, 2) ;

insert ('ши', s, a)

end;

writeln (s) ;

writeln ('всего ошибок: ', count)

end.