Проверить правильность написания сочетаний "жи" и "ши".Если надо, то исправить и вывести на экран

var
  s: string;
  i, k,err: byte;
 
begin
  WriteLn('Введите строку:');
  ReadLn(s);
  for i:=1 to length(s)-1 do begin 
  if (s[i]='ж') or (s[i]='ш') then begin 
     if s[i+1]='ы' then begin s[i+1]:= 'и'; end; 
     end; 
  writeln('Правильное написание строки', s) 
end;
end.

var
  s: string;
  i: byte;
 
begin
  WriteLn('Введите строку:');
  ReadLn(s);
  for i := 1 to length(s) - 1 do 
  begin
    if (s[i] = 'ж') or (s[i] = 'ш') then begin
      if s[i + 1] = 'ы' then begin s[i + 1] := 'и'; end; 
    end; 
    
  end;
  writeln('Правильное написание строки: ', s)
end.

begin
  var sInsert  := ReadLnString('Введите строку:');
  var sCorrect : String := Sinsert;
  var notCorrect : array of String = ('жы', 'шы', 'Жы', 'Шы', 'жЫ', 'шЫ', 'ЖЫ', 'ШЫ');
  var Correct    : array of String = ('жи', 'ши', 'Жи', 'Ши', 'жИ', 'шИ', 'ЖИ', 'ШИ');
  var count := 0;
  for var i := 0 to notCorrect.Length-1 do
    begin
      count += (Pos(notCorrect[i], sCorrect) + Pos(Correct[i], sCorrect) > 0 ? 1 : 0);
      sCorrect := sCorrect.Replace(notCorrect[i], Correct[i]);
    end;
  if count = 0 then
    WriteLn('В введённой строке нет сочитаний «жи» и «ши».')
  else
    begin
      WriteLn('Результаты проверки на «жи-ши»:');
      if sInsert = sCorrect then
        WriteLn('Введена правильная строка.')
      else
        WriteLn('Обнаружены ошибки. Правильная строка: ', sCorrect);
    end;
end.

uses System.Text.RegularExpressions;
var
  s: string;
  
function f(m : Match) : string;
begin
  result := m.Value[1] + (m.Value[2] = 'Ы' ? 'И' : 'и');
end;
 
begin
  WriteLn('Введите строку:');
  ReadLn(s);
  s := Regex.Replace(s, '(ж|ш)ы', f, RegexOptions.IgnoreCase);
  writeln('Правильное написание строки: ', s);
end.