Проверка пользователя на знание английского - Turbo Pascal

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

вообщем суть программы заключается в следующем: имеется два текстовых файла.в одном английские слова в другом их перевод.программа выводит английское слово из файла.пользователь пишет перевод. если пользователь ввел верно то + бал и следующее слово.всего 50 слов.текст программы по сути верный но выдает какую то ошибку.помогите найти что не так

program perevodchik;
 
var
j,j1,j2,k,m1,m2,n1_rus,n2_rus,n1_eng,n2_eng,rez:integer;
f,f1:text;
cancel,rus:boolean;
str_rus,str_eng:string;
 
procedure engl (var i,n1,n2: integer; str:string);
var
str2,str3:string;
begin
  i:=i+1;
 
    n2:=n2+1;
    if str[i]=',' then
    begin
 
    if n2<>0 then
    begin
    if rus=false then
    begin
    str2:=copy(str,n1+1,n2-1);
    n2:=0;
    writeln(str2);
      k:=k+1;
     rus:=true ;
    end
    else
    begin
    str2:=copy(str,n1+1,n2-1);
    n2:=0;
    readln(str3);
    rus:=false;
    if str2=str3 then rez:=rez+1;
    end;
    end;
      n1:=i;
    end;
end;
 
begin
Assign (f,'D:\food.txt');
 reset (f);
 read(f,str_eng);
 Assign (f1,'D:\food1.txt');
 reset (f1);
 read(f1,str_rus);
 cancel:=true;
 j:=0;
  while cancel=true do
  begin
    if rus=false then
    begin
    j:=j1;
    m1:=n1_eng;
    m2:=n2_eng;
    engl(j,m1,m2,str_eng);
    n1_eng:=m1;
    n2_eng:=m2;
    j1:=j;
    end
    else
    if rus=true then
    begin
    j:=j2;
    m1:=n1_rus;
    m2:=n2_rus;
    engl(j,m1,m2,str_rus);
    j2:=j;
    n1_rus:=m1;
    n2_rus:=m2;
    end;
    if k=50 then cancel:=false;  

  end;
   writeln(rez);
   readln(str_rus);
 
end.

Решение задачи: «Проверка пользователя на знание английского»

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

var
  f: text;
  sr, se, s: string;
  n, r: integer;
begin
  Assign(f,'food.txt'); Reset(f);
  while not SeekEOF(f) do begin
    ReadLn(f,se); ReadLn(f,sr); inc(n);
    Write(n:2,'. ',se,' --> '); ReadLn(s);
    if Pos(','+s+',',','+sr+',')<>0 then inc(r);
  end;
  Close(f);
  WriteLn('Задано вопросов : ',n);
  WriteLn('Правильных ответов: ',r);
end.

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

В начале кода объявляются переменные: f (тип text), sr (строка), se (строка), s (строка), n (целое число), r (целое число).
Затем происходит назначение файла 'food.txt' переменной f и его инициализация.
В цикле while происходит чтение строк из файла 'food.txt' в переменные sr и se.
После чтения строк происходит увеличение счетчика n на единицу.
Затем выполняется запись в файл 'food.txt' строки, содержащей n, точку, пробел и значение переменной se.
Если в строке, записанной в файл, есть запятая, то она не должна быть включена в следующую строку. Для этого используется функция Pos.
После чтения следующей строки из файла 'food.txt' происходит проверка на наличие запятой в ней. Если запятая есть, то увеличивается счетчик r на единицу.
Когда достигается конец файла 'food.txt', цикл while завершается.
После завершения цикла закрывается файл 'food.txt'.
Выводится количество заданных вопросов и количество правильных ответов.