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

Varb,i,max,mz:integer;max,mz можно не писать. Остались от прошлой программы

всё, поправил. Теперь писать всё

спасибо)

Varb,i:integer;S:string;BeginReadln(S);b:=0;For i:=1 to length(s) do if i<length(s) then beginif (s[i]='ж') or (s[i]='ш') then if s[i+1]='ы' then begin s[i+1]:='и'; b:=b+1; end;End;Writeln(b);Writeln(s);End.