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

program CrazyCoder;var s, sc: string; i, k: integer;begin write('s='); readln(s); for i := 1 to length(s) - 1 do begin sc := copy(s, i, 2); if (sc = 'чя') or (sc = 'щя') then begin s[i + 1] := 'а'; inc(k); end; if (sc = 'Чя') or (sc = 'Щя') then begin s[i + 1] := 'a'; inc(k); end; end; if k = 0 then writeln('Ошибок не обнаружено') else begin writeln('Обнаружены ошибки в количестве ', k, '. Ошибки исправлены'); writeln(s); end;end.

огромное спасибо

Пример вашей программы в прикрепленном файле