Проблема с алгоритмом естественного слияния

[badnum23]

Не могу понять причины, почему из исходного файла с матрицей размером 7x7 в итоге получается матрица 7x3, то есть в конечном файле представлено всего 3 строки. Из какого-то файла некорректно происходит копирование, и я не могу понять почему так.
Исходный код в прикреплениях.
Проблемное, на мой взгляд, место:

procedure merge_run();
begin
  repeat
    if getkey(a) < getkey(b) then begin
      copy_mas(a, c);
      if eor then
        copy_run(b, c);
    end else begin
      copy_mas(b, c);
      if eor then
        copy_run(a, c);
    end;
  until eor;
end;

Порой программа вообще "вылетает". Подскажите, в каком месте может быть ошибка.