Слияние файлов Опции

[Client]

Всем привет!
У меня проблема с такой задачей:даны 2 файла упорядоченные по неубыванию, получить новый файл, упорядоченный из элементов этих двух файлов по неубыванию.
Никак не могу сделать чтоб работала для всех вариантов исходных данных...

[Client]

procedure sliyanie;
var
   t,t1,t2:boolean;
   a,b:integer;
begin
     reset(f3);
     reset(f2);
     rewrite(f4);
     seek(f2,filesize(f2)-1);
     read(f2,a);
     seek(f3,filesize(f3)-1);
     read(f3,b);
     t:=a>=b;
     reset(f2);
     reset(f3);
     read(f2,a);
     read(f3,b);
     while not eof(f2) and not eof(f3) do begin
           if a<b then begin
              write(f4,a);
              read(f2,a)
           end
           else begin
                write(f4,b);
                read(f3,b)
           end;
     end;
     t1:=true;
     t2:=true;
     if t then begin
        while not eof(f2) do begin
              if (a>b) and t1 then begin
                 write(f4,b);
                 t1:=false
              end;
              write(f4,a);
              read(f2,a);
              if eof(f2) and t2 then begin
                 seek(f2,filesize(f2)-1);
                 t2:=false
              end;
        end;
     end
     else
         while not eof(f3) do begin
               if (a<b) and t1 then begin
                  write(f4,a);
                  t1:=false
               end;
               write(f4,b);
               read(f3,b);
               if eof(f3) and t2 then begin
                  seek(f3,filesize(f3)-1);
                  t2:=false
               end;
         end;
end;

Пример
Файл 1:2 2 3 4 7
Файл 2:5 10
Я делал так:читаем последние элементы файлов, сравниваем их.Ресет 2 файлов, читаем первые элементы. 10>7, значит пока не конец первого файла читаем из первого и сравнием. Когда кончился файл 1, дописываем элементы файла 2.
На этом примере вроде отработало, а если поменять файлы местами- то не работает.
Еще пример:
файл 1:50
файл 2: 2 2 3 4 7
Здесь как тока считали 50, сразу конец файла1 и не входим ни в один из циклов.