Заменить в тексте все слова he и He на George - PascalABC.NET

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

Условие

У Джорджа есть текст на английском языке, в котором он упоминается в третьем лице. Джордж решил для ясности заменить в этом тексте все слова he и He на George. При этом слова hE и HE он не заменяет. Текст представляет собой одну строку, состоящую из заглавных и строчных латинских букв, цифр и пробелов. Слова отделяются друг от друга пробелами.

Формат входного файла

Во входном файле содержится строка с исходным текстом.

Формат выходного файла

Выходной файл должен содержать строку, переделанную так, как желает Джордж.

Ограничения

Длина строки находится в диапазоне от 1 до 100 символов. help!!!

Решение задачи: «Заменить в тексте все слова he и He на George»

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

var
  i:integer;
  s,r,t:string;
begin
  assign(input,'input.txt');
  reset(input);
  assign(output,'output.txt');
  rewrite(output);
  readln(s);
  s:=s+' ';
  t:='';r:='';
  for i:=1 to length(s) do
    if s[i]<>' ' then t:=t+s[i] else
      begin
         if (t='he') or (t='He') then t:='George';
         r:=r+t+s[i];
         t:='';
       end;
   writeln(copy(r,1,length(r)-1));
   close(input);
   close(output);
end.

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

Объявлены три переменные: i, s, r типа integer и string соответственно.
Установлены начальные значения переменных:
- s получает пустую строку;
- r получает пустую строку;
- t получает пустую строку.
Установлены начальные значения файловых переменных:
- input получает имя файла 'input.txt';
- output получает имя файла 'output.txt'.
Происходит чтение входного файла в переменную s.
С помощью цикла for перебираются все символы строки s.
Если текущий символ является пробелом, то выполняется проверка:
- если предыдущая строка t равна 'he' или 'He', то значение переменной t заменяется на 'George';
- значение переменной r дополняется текущим символом и предыдущей строкой t;
- переменная t сбрасывается в пустую строку.
Выводится результат на экран с помощью функции writeln.
Файлы input и output закрываются.