Нахождение одинаковых строк в двух файлах и вывод результата в третий файл - Turbo Pascal

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

Помогите пожалуйста. Есть два тестовых файла, которые содержат строки (файлы большие, по 60k строк в каждом). Задача сравнить эти два этих файла и найти одинаковые строки и вывести эти строки в третий файл, который программа будет создавать. Структура файла такова, что все строки имеют фиксированную длину (41 символ). Пример:

Спойлер

В конце программы нужно вывести на экран количество одинаковых строк, которые были найдены программой, иначе написать "Не найдено" Что у меня получилось:

                    Листинг программы
                
 
                        
                          
                    
program pr3;
 
var
  str,ste:String;
  fr,fe,fd:Text;
  n,q1,q2,l:word;
begin
 
   Assign(fe,'D:\eng_pure.txt');
   Assign(fr,'D:\rus_pure.txt');
   Assign(fd,'D:\delta.txt');
   rewrite(fd);
   reset(fe);
   reset(fr);
   n:=0;
   q1:=1;
   q2:=1;
   l:=1;
    For q1:=1 to 65000 do begin
     ReadLn(fe,ste);
 
     For q2:=1 to 16200 do begin
      ReadLn(fr,str);
 
      for l:=1 to 41 do
       if ste[l]=str[l] then
         begin
          writeln(fd, ste);
         end;
 
    end;
    end;
 If n>0 then
  Writeln('naydeno ', n, ' sovpadeniy');
 else 
  Writeln('Sovpadeniy ne naydeno');
readln
end.

Перебор q1 и q2 сейчас сделан по фактическому количеству строк в тестовых файлах, в идеале нужен EOF, но с ним программа вообще отказывалась запускаться. Подскажите пожалуйста, где я ошибся?

Если что самый похожий вариант Переписать в третий файл только те строчки, которые есть и в первом, и во втором файлах. уже был испробован - в файл результата не выводится ни одной строки.

Решение задачи: «Нахождение одинаковых строк в двух файлах и вывод результата в третий файл»

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

  while s[Length(s)] in [#9,' '] do Delete(s,Length(s),1);

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

В цикле while происходит проверка условия s[Length(s)] in [#9,' ']. Это условие означает, что текущая строка (s) содержит последний символ ('#9') и пробел (' '). Если это условие выполняется, то происходит удаление последнего символа из строки s.
Далее следует команда Delete(s,Length(s),1), которая удаляет последний символ из строки s. Здесь Length(s) используется для определения длины строки s.
Затем происходит выход из цикла while с помощью оператора break.
После выхода из цикла while происходит переход к следующей итерации цикла, при этом переменная s обновляется, чтобы содержать обрезанную строку.
Цикл повторяется до тех пор, пока условие s[Length(s)] in [#9,' '] не станет ложным. Это означает, что в строке s больше нет символов '#9' и пробела.
После завершения цикла while происходит переход к следующему оператору, который будет выполнен.