Дан текстовый файл f. Найдите самое длинное слово среди слов, второй буквой которых является "e"

program tEst;
 
const p = [' '..'/', ':'..'@', '['..'`', '{'..'~'];
 
var s, w, m: string;
    f: text;
 
begin
  assign(f, 'c:\test.txt');
  reset(f);
  m := '';
  while not(eof(f)) do
    begin
      readln(f, s);
      s := s + ' ';
      while length(s) > 0 do
        begin
          w := copy(s, 1, pos(' ', s));
          delete(s, 1, pos(' ', s));
          while (length(w) > 0) and (w[length(w)] in p) do delete(w, length(w), 1);
          if (length(w) >= 2) and (w[2] = 'e') and (length(w) >= length(m)) then m := w;
        end
    end;
  close(f);
  if length(m) > 0 then writeln('Found word: ', m) else writeln('Word not found.');
  readln
end.

program tEst;
 
const p = [' '..'/', ':'..'@', '['..'`', '{'..'~']; //разделители слов
 
var s, w, m: string;
    f: text;
 
begin
  assign(f, 'c:\test.txt'); //связываем переменную с файлом
  reset(f); //и открываем его для чтения
  m := '';//слово максимальной длины пока пустое
  while not(eof(f)) do//пока не конец файла
    begin
      readln(f, s);//читаем строки
      s := s + ' ';//добавляем в конец пробел
      while length(s) > 0 do//пока строка не кончилась
        begin
          w := copy(s, 1, pos(' ', s));//копируем с начала по первый пробел
          delete(s, 1, pos(' ', s)); //удляем эту часть
          //пока не конец скопированной части и разделители, удаляем их
          while (length(w) > 0) and (w[length(w)] in p) do delete(w, length(w), 1);
          //если осталось больше 1 символа и второй буква е и длина слова больше максимального
          //то это будет пока максимальным
          if (length(w) >= 2) and (w[2] = 'e') and (length(w) >= length(m)) then m := w;
        end
    end;
  close(f); //закроем файл
  //если слово есть, выводим его, если нет, выводим сообщение
  if length(m) > 0 then writeln('Found word: ', m) else writeln('Word not found.');
  readln
end.