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

[Client]

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

[Client]

procedure sli;
var
   t,t1,t2:boolean;
   a,b:integer;
begin
     reset(f3);
     reset(f2);
     rewrite(f4);
     read(f2,a);
     read(f3,b);
     if eof(f2) then reset(f2);
     if eof(f3) then reset(f3);
     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;
     t:=eof(f2);
     if a<b then write(f4,a)
     else write(f4,b);
     if t then
        while not eof(f3) do begin
              read(f3,b);
              write(f4,b)
        end
     else
         while not eof(f2) do begin

               read(f2,a);
               write(f4,a)
         end;
end;

На выше указанные примеры отработало, а на
2 3 4
2 7
Не хочет.... Что надо добавить в этот код?
P.S. Это сообщение отправил еще вчера...