Pascal/Turbo Pascal - Guardar arbol en archivo usando preorder

Hola! Necesito ayuda, me piden que guarde un arbol (de registros) recorriendolo en pre order en un archivo .dat

Procedure PasarArbol (Var Arbol:PuntArbol;Var Arch:TipoArchArboles);
Begin
If Arbol <> nil then
Begin
PasarArbol (Arbol^.izq,Arch);
Write (Arch,Arbol);
PasarArbol (Arbol^.der,Arch);
End;
End;