Помогите решить задачу на файлы (Паскаль)

[mpegable]

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

ЗАРАНЕЕ БЛАГОДАРЕН

[eoln]

Примерно так (не тестировал)

var
  b, b1, b2: text of byte;
  byt: byte;
  siz: longint;
begin
  assign(b, 'my_file.txt');
  reset(b);
  assign(b1,' 1.txt');
  rewrite(b1);
  assign(b2, '2.txt');
  rewrite(b2);
  siz := filesize(b) div 2; //половина файла
  while not eof(b) do begin
    read(b, byt); //читаем байт
    if filepos(b)<siz then write(b1, byt) else write(b2, byt);
    // filepos - позиция с которой читаем
  end;
  close(b);
  close(b1);
  close(b2)
end.