Запись бинарного дерева в файл

[goo]

Основные процедуры нужной мне программы я уже написал. Осталось сделать процедуру записывания текущего содержимого памяти в файл и процедуру чтения данных из файла и записывания их в память.

Вот, что я написал, но работает криво:

{сохранение текущего состояния памяти в файл}
procedure SaveInFile;
begin
  assign(f,'D:\lab10.bin');
  rewrite(f);
  seek(f, 0);
  {while (top <> nil) do}
    write(f, top^.data);
  writeln('Pamyat uspeshno sohranena v fail! Najmite Enter');
  readln;
end;

{открытие файла}
procedure OpenFile;
begin
  assign(f,'D:\lab10.bin');
  reset(f);
  if (FileSize(f)= 0) then {если файл пустой}
  begin
    writeln('Seichas fail pustoi. Zapolnite ego. Najmite Enter.');
    readln;
    exit;
  end
  else writeln('Fail ne pustoi. Najmite Enter dlya otrkytiya.');
  readln;
  seek(f, 0);
  read(f, l);
  top := nil;
  while not eof(f) do
  begin
    read(f, l);
    top := AddTree(top, l)
  end; 
  close(f);
  writeln('Fail otkryt uspeshno. Najmite Enter.');
  readln;
end;

Буду очень благодарен, если кто добавит пару строчек в эти две процедуры, чтобы они работали правильно (они почти правильно работают).

Вот дополнительные данные для тех, кто может помочь:
Типы и переменные программы:

type
  anketa = record
            num: string;
            fio: string[15];
            year: integer;
            pol: string[2];
            family: string[10];
            child: integer;
            oklad: integer;
           end;
  TreePtr = ^tree;
  tree = record
          data: anketa;
          left, right: TreePtr;
         end;
var
  top: TreePtr;
  l: anketa;
  level, n, i: integer;
  number: integer;
  f: file of anketa;

Функция добавления листа к дереву (если понадобится при чтении и записи данных ИЗ файла).

{добавление листа к дереву}
  function AddTree (top: TreePtr; newnode: anketa): TreePtr;
  begin
    if (top = nil) then
    begin
      new(top);
      top^.data := newnode;
      top^.left := nil;
      top^.right := nil;
    end
    else
      if (top^.data.num > newnode.num) then
        top^.left := AddTree(top^.left, newnode)
      else
        top^.right := AddTree(top^.right, newnode);
      AddTree := top;
  end;

[Redpunk231]

Program TreeInFile;
type
  PTree=^note;
  note=record
    inf:integer;
    left:PTree;
    right:PTree;
  end;

procedure AddToTree (var Tree:PTree;x:integer); 
{процедура добавления в дерево}
begin
 if Tree=nil then
   begin
     New(Tree);
     Tree^.inf:=x;
     Tree^.left:=nil;
     Tree^.right:=nil;
      exit;
   end;
 if x < Tree^.inf then
     AddToTree(Tree^.left,x)
  else
    AddToTree(Tree^.right,x);
end;

procedure Save_Tree(p:PTree;var T:text);
{процедура сохранения дерева в файл}
	begin
		if p<>nil then
			begin

				Save_Tree(p^.left,T);
				write(T,p^.inf,' ');
				Save_Tree(p^.right,T);

			end;
	end;
var
  root:PTree;
  T:text;
begin
  {......................................}
  {заполняем дерево данными}
  {......................................}
  {затем сохраняем в файл}
  assign(T,'test.txt'); {открываем файл}
  rewrite(T);            {на запись}
  Save_Tree(root,T);
  close(T);
end.