Написать программу проверки правильности написания сочетаний "жи", "ши", "ча", "ща", "чу", "щу". Исправить ошибки

var
  s : string;
  klk_err, i, j, k : longint;
  err, corr : array [1..100] of string;
  ch : char;
 
procedure find(var s : string);
var
  i, j, k : longint;
begin
for i := 1 to klk_err do begin
 for j := 1 to length(s) do begin
  if s[j]=err[i][1] then begin
   for k := 1 to length(err[i]) do begin
    if S[j+k-1]<>err[i][k] then break;
   end;
    if k=length(err[i]) then begin
     for k := 1 to length(corr[i]) do
      S[j+k-1] :=corr[i][k];
     // writeln(  S[j+k-1], ' ', corr [i][k] );
 
   end;
  end;
 end;
end;
end;
 
BEGIN
assign(output,'output.txt');
assign(input,'errors.txt');
rewrite(output);
reset(input);
 
while NOT EOF do begin
 readln(s);
 inc(i);
 while s[j+1] <> ' ' do  inc(j);
 for k := 1 to j do err[i] := err[i]+s[k];
 for k := j+2 to length(s)+1 do corr[i] := corr[i] + s[k];
 writeln( err[i], ' ', corr[i]);
end;
klk_err := i;
 
close(input);
 
assign(input,'input.txt');
reset(input);
 s := '';
 while NOT EOF do begin
  read(ch);
  if ch <> ' ' then S := S + ch
   else begin
    s := s + ch;
    find(S);
    write(s);
    s := '';
   end;
 end;
 
close(input);
close(output);
 
END.

uses crt;
var i,error:integer;
s:string;
begin
writeln('Введите строку');
readln(s);
error:=0;
for i:=1 to length(s)-1 do
begin
 
  if (s[i]='ж') or (s[i]='Ж') or (s[i]='ш') or (s[i]='Ш') then
  begin
     if s[i+1]='ы' then
     begin
      s[i+1]:='и';
     error:=error+1;
      end;
     if s[i+1]='Ы' then
     begin
      s[i+1]:='И';
     error:=error+1;
      end;
    end;
 
  if (s[i]='ч') or (s[i]='Ч') or (s[i]='щ') or (s[i]='Щ') then
  begin
     if s[i+1]='я' then
     begin
      s[i+1]:='а';
     error:=error+1;
      end;
     if s[i+1]='Я' then
     begin
      s[i+1]:='А';
     error:=error+1;
      end;
    end;
 
  if (s[i]='ч') or (s[i]='Ч') or (s[i]='щ') or (s[i]='Щ') then
  begin
     if s[i+1]='ю' then
     begin
      s[i+1]:='у';
     error:=error+1;
      end;
     if s[i+1]='Ю' then
     begin
      s[i+1]:='У';
     error:=error+1;
      end;
    end;
 
end;
 
if error=0 then writeln ('Ошибок ',error)
 else
 begin
  writeln('Правильное написание строки:');
  writeln(s);
  writeln('Количество ошибок ', error);
  end;
end.

if (s[i]='ж') or (s[i]='Ж') or (s[i]='ш') or (s[i]='Ш') then

if s[i] in ['ж','Ж','ш','Ш'] then

var
  i, ec: Integer;
  s: String;
begin
  WriteLn('Введите строку:'); ReadLn(s); {ec:=0;}
  for i:=1 to Length(s)-1 do
    case s[i] of 
    'Ж','ж','Ш','ш':
      case s[i+1] of
      'Ы': begin s[i+1]:='И'; Inc(ec); end;
      'ы': begin s[i+1]:='и'; Inc(ec); end;
      end;
    'Ч','ч','Щ','щ':
      case s[i+1] of
      'Я': begin s[i+1]:='А'; Inc(ec); end;
      'я': begin s[i+1]:='а'; Inc(ec); end;
      'Ю': begin s[i+1]:='У'; Inc(ec); end;
      'ю': begin s[i+1]:='у'; Inc(ec); end;
      end;
    end;
  WriteLn; WriteLn('Ошибок: ',ec);
  if ec>0 then begin
    WriteLn('Правильное написание строки:'); WriteLn(s);
  end;
end.