Функция обьединения двух посортованых файлов в третий методом слияния..

[eva.t]

Приветики ))
мне срочно нужно написать проги..
но никак не могу разобраться - просто много на раз, и уже не соображаю..
нужно написать модуль, в котором три функции (или процедуры)

- создание файла, в котором каждая следуящая цыфра больше предыдущей (количество чисел случайным выбором)
- прочитать из файла
- обьединить два "посортованых" файла в третий методом слияния...

две функции написала.. я решила сначала написать прогу, а потом переработать все в модуль..
но что-то с третей плутаюсь...
помогите пожалуйста..очень надо - ведь еще много сложных задач, а времени мало =\
как-то быстро семестр прошел..

program losowanie;
uses crt;

var
 plik :text;
 n,i,l: integer;
 adres1,adres2 : string;
 a:array[1..100] of Word;

 Procedure zapisz(adres:string);
 begin
   Assign (plik,adres);
   Rewrite (plik);
   randomize;

   Writeln (plik,'LICZBY ZAPISANE DO PLIKU ');
   Writeln (plik);
   n:= random (100);
   Write (plik,  ' ilosc liczb: ');
   write(plik, n);
   writeln(plik);
   l:=0;

   for i:=1 to n do
     begin
       a[i]:= random (60);
       a[i]:= l + a[i];
       l:=a[i];
       write (plik, a[i]:5);
     end;

   close (plik);
 end;

 procedure wypisz(adres:string);
 var
   a:char;
   begin
     assign  (plik, adres);
     reset (plik);

     repeat
      read (plik,a);
      write (a);
     until eof(plik);
     close (plik);

     readln;
    end;

 procedure scalanie;

 begin




 end;



 BEGIN
 clrscr;
 adres1 :='C:\FPC\2.4.0\bin\i386-win32\losowanie1.txt' ;
 adres2 := 'C:\FPC\2.4.0\bin\i386-win32\losowanie2.txt';

 writeln ('PLIK 1 ! ');
 zapisz(adres1);
 wypisz(adres1);
 writeln;

 Writeln (' PLIK 2 ! ');
 zapisz (adres2);
 wypisz (adres2);
 writeln;

 END.