Исправить с учетом регистра ошибки (Turbo Pascal)

[Trampoline]

Друзья, выручите пожалуйста. Нужно написать программу на такую вот задачку (язык программирования - Turbo Pascal):

Составить программу на языке Паскаль ввода и обработки текста на русском языке (строки символов кириллицы) согласно заданию.

Исправить с учетом регистра ошибки согласно правописанию личных местоимений 3-го лица в косвенных падежах: после предлогов к, с, близ, после прибавляется н, например, к нему.

P.S. Заранее огромное спасибо.

[Mad_Cat]

5 раз прочитал - ничего не понял!!!
Пример Ввода-Вывода можно?

[Trampoline]

Вот код программы другого варианта, задание которого следующие:

Составить программу на языке Паскаль ввода и обработки текста на русском языке (строки символов кириллицы) согласно заданию.

Исправить с учетом регистра ошибки согласно правописанию буквы е: после буквы и или согласной буквы пишется е, а не э (исключения: сэр, мэр, пэр)

var
 i,p:integer;
 s,b,b1:string;
 begin
  writeln ('введите предложение');
  readln (s);
  s:=' '+s+' ';
  B:='ибвгджзклмнпрстфхцчшщ';
  B1:='ИБВГДЖЗКЛМНПРСТФХЦЧШЩ';
  p:=1;
  for i:=1 to length(s)-4 do
    begin
    IF (copy(s, i, 5) <>' сэр ') AND (copy(s, i, 5) <>' мэр ') AND (copy(s, i, 5) <> ' пэр ') THEN
      if (s[i+2] = 'н') and ( pos(s[i+1],B)<> 0) then
       begin
        s[i+2]:= 'Ґ';
        p:= 0
      end
    end;
    IF( copy(s, i, 5) <> (' СЭР ')) and (copy(s, i, 5) <>(' МЭР ')) and (copy(s, i, 5) <> (' ПЭР ') )THEN
      if (s[i+2] = 'н') and( pos(s[i+1],B1)<> 0) then
       begin
        s[i+2]:= 'Ґ';
        p:= 0
      end;
  if P=1 then
    writeln ('исправлений нет')
  else
    writeln( 'исправленный вариант',s);
  readln
end.