Исправить с учетом регистра ошибки согласно правописанию суффиксов чик щик - Pascal

Формулировка задачи:

Помогите сделать задание. Исправить с учетом регистра ошибки согласно правописанию суффиксов чик щик (после д т з с ж птшется ч)

Решение задачи: «Исправить с учетом регистра ошибки согласно правописанию суффиксов чик щик»

Листинг программы

uses crt;
const suf:array[1..10]of string=('дщик','тщик','зщик','сщик','хщик','ДЩИК','ТЩИК','ЗЩИК','СЩИК','ХЩИК');
var s:string; i,n:integer; p:boolean;
begin
 clrscr;
 writeln('Введите строку'); readln(s);
 for i:=1 to 10 do
  repeat
   p:=true;
    if pos(suf[i],s)<>0 then
     begin
      n:=pos(suf[i],s)+1;
      delete(s,n,1);
      if i<=5 then insert('ч',s,n) else insert('Ч',s,n);
      p:=false
     end;
  until p;
 writeln('Исправлено: ');
 writeln(s);
end.

Объяснение кода листинга программы

В коде используется библиотека crt, которая предоставляет функции для работы с консолью.
Константа suf представляет собой массив из 10 строк, которые являются возможными суффиксами.
Переменная s предназначена для хранения введенной пользователем строки.
Переменная i содержит номер текущего символа в строке s.
Переменная n содержит позицию суффикса в строке s.
Переменная p используется для контроля выполнения цикла.
Цикл for повторяется 10 раз, начиная с i=1 и до i=10.
Внутри цикла проверяется, присутствует ли текущий суффикс в строке s. Если нет, то находится позиция следующего символа после суффикса и удаляется символ.
Если текущий суффикс является одним из первых пяти суффиксов, то вставляется символ 'ч'. В противном случае вставляется символ 'Ч'.
После завершения внутреннего цикла, переменная p устанавливается в false.
Выводится исправленная строка.
Конец программы.