Установка режима бинарного файла

Попробуйте вызвать приведенную ниже процедуру немедленно после перезаписи выходного файла и перед началом записи в него:

procedure
 SetBinaryMode(var
 F: file
); assembler
;
asm

  mov ax,$4400
  les di,F
  mov bx,word ptr es:[di]
  int $21
  or
 dl,$20
  xor
 dh,dh
  mov ax,$4401
  int $21
end
;

Другое по теме:

• Как скопировать все файлы вместе с подкаталогами
• Копирование файлов
• Удалить файл в корзину? Запросто!