Внешняя сортировка

Здравствуйте.

Подскажите, пожалуйста, как исправить данный код.
Ошибка в том, что каждый раз обрезается по 2 последних значения при записи в исходный файл (как я понял). Дело в том, что внутри while оно считывает последнее значение из файла, а потом условие eof(f1) (или f2) становится true, и происходит недозапись.
Возможно, я неправильно нашел ошибку, но вроде бы так. Дебажу уже третий час и не могу понять, как исправить.

    while (not EOF(f1))and (not EOF(f2)) do
    begin
      i:=0;
      j:=0;
      while (i<series) and(j<series) and (not eof(f1)) and (not eof(f2)) do
      begin
        if tmp1<tmp2 then
        begin
          write(f,tmp1);
          read(f1,tmp1);
          inc(i);
          inc(count);//--
        end
        else
        begin
          write(f,tmp2);
          read(f2,tmp2);
          inc(j);
          inc(count);//--
        end;
      end;

      while (i<series) and (not eof(f1)) do   //55
      begin
        write(f,tmp1);
        read(f1,tmp1);
        inc(i);
        inc(count);//--
      end;

      while (j<series) and (not eof(f2)) do   //55
      begin
        write(f,tmp2);
        read(f2,tmp2);
        inc(j);
        inc(count);//--
      end;
      //////////////////cортирует и выписывает^
    end;

    while (not eof(f1)) do
    begin
      write(f,tmp1);
      read(f1,tmp1);
      inc(count);//--
    end;

    while (not eof(f2)) do
    begin
      write(f,tmp2);
      read(f2,tmp2);
      inc(count);//--
    end;
    //////////////////дописывает остатки из файлов^
    CloseFile(f);
    CloseFile(f1);
    CloseFile(f2);

    series:=series*2;
  end;

end.

Обновление

Алгоритмически - это, по сути, та же самая сортировка слиянием (где массив разделяем на две части, а потом сливаем в исходный), только без использования озу. Серия - это как бы размер массива. В сортировке слиянием мы делим массивы до мельчайших массивов - массивов с единственным элементом. А затем слияем их. А затем слияем слитые и т.д. Так моя серия = 1 изначально и while (внешний, я его убрал, т.к. попросили выложить кусочек, где ошибка) работает до того момента, пока серия<изначальный_размер_массива.