[lmikle]

собственно, слияние файлов:

Код:

var
  f, g, h : file of integer;
  n : Integer;
begin
  assignFile(f, 'c:\f.dat')'
  assignFile(g, 'c:\g.dat');
  assignFile(h, 'c:\h.dat');

  Reset(f);
  Reset(g);
  Rewrite(h);

  While not eof(f) Do
    Begin
       Read(f,n);
       Write(h,n);
    End;

  While not eof(g) Do
    Begin
       Read(gn);
       Write(h,n);
    End;

  CloseFile(f);
  CloseFile(g);
  CloseFile(h);
end;

Ну как создать исходные файлы сам разберешься. Тебе понадобятся функции Randomize и Random(N), ну а запись в файл есть в вышепреведенном примере.