Работа с файлами

[Скрунж]

Как с помощью delphi скопировать данные из одного файла в другой, но не просто скопировать, а к примеру 10 символ (с первого файла) в другой фаил и поставить к примеру на 15 место

[eoln]

Было вроде уже такое. Для Delphi

var
  f1, f2: file of byte;
  b: byte;
begin
  assignfile(f1, 'file1');
  reset(f1);
  assignfile(f2, 'file2');
  reset(f2);
  seek(f1, 10-1);
  read(f1, b);
  seek(f2, 15-1);
  write(f2, b);
  closefile(f1);
  closefile(f2)