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

[Danil_94]

Добрый день. как заполнить бинарное дерево из текстового файла? у нас в файле хранятся фамилии. надо заполнить ими дерево.

я написал программу, но дереве уходит в сторону, а надо чтобы все было по порядку,с т.е. чтобы у каждого родителя были дочерние элементы... прошу помогите, парюсь не знаю сколько.

TreeF = ^Node;

  Node = record
    Name: String[10];
    Age: byte;
    papa, mama: TreeF;
  end;

var
  Form1: TForm1;
  f: textfile;
  Me, P: TreeF;

implementation

{$R *.dfm}

Procedure Add(Tree: TreeF; S: string; X: byte);
var
  ch, i, g: byte;
  T: TreeF;
begin
  new(T);
  T^.Name := S;
  T^.Age := X;
  T^.mama := nil;
  T^.papa := nil;
  if Tree = nil then
    Tree := T
  else if Tree^.mama = nil then
    Tree.mama := T
  else if Tree^.papa = nil then
    Tree.papa := T
  else if (Tree^.mama.papa = nil) or (Tree^.mama.mama = nil) then
    Add(Tree.mama, S, X)
  else
    Add(Tree.papa, S, X)
end;





procedure PrintNode(TN: TreeF; i: TTreeNode);
var
  K: TTreeNode;
begin
  if TN <> nil then
  begin
    K := Form1.TreeView1.Items.AddChild(i, TN^.Name + ' ' + inttostr(TN^.Age));
    PrintNode(TN^.mama, K);
    PrintNode(TN^.papa, K);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  S, M: string;
  i, X: byte;
  H: TTreeNode;
begin
  reset(f);
  while not eof(f) do
  begin
    readln(f, S);
    for i := 1 to length(S) do
      if S[i] = ' ' then
      begin
        M := copy(S, 1, i - 1);
        X := strtoint(copy(S, i + 1, 2));
      end;
    Add(Me, M, X);
  end;
  H := nil;
  PrintNode(Me, H);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  S: string;
  i, g: byte;
begin
  new(Me);
  Me^.Name := 'Радик Тухватулин';
  Me^.Age := 19;
  Me^.papa := nil;
  Me^.mama := nil;
  Assignfile(f, 'Текстовый документ.txt');
  ListBox1.Items.LoadFromFile('Текстовый документ.txt');
end;

end.