Попробуйте вызвать приведенную ниже процедуру немедленно после перезаписи выходного файла и перед началом записи в него:
procedureSetBinaryMode(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
;