файлы большого размера, как соеденить Опции

[sva]

у меня такая проблема: имеется два фаила, каждый более 64к. вопрос как можно соеденить их в один файл как массив байтов. (файлы не текстовые).
пожалуйста если можно подробней.

[xds]

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

program Merge;

var
  fi, fo: File;
  Buf: array[0..8191] of Byte;
  r: Integer;

begin
  Assign(fo, 'merged.dat');
  Rewrite(fo, 1);

  Assign(fi, 'chunk1.dat');
  Reset(fi, 1);
  repeat
    BlockRead(fi, Buf, SizeOf(Buf), r);
    BlockWrite(fo, Buf, r);
  until r < SizeOf(Buf);
  Close(fi);

  Assign(fi, 'chunk2.dat');
  Reset(fi, 1);
  repeat
    BlockRead(fi, Buf, SizeOf(Buf), r);
    BlockWrite(fo, Buf, r);
  until r < SizeOf(Buf);
  Close(fi);

  Close(fo);
end.