Задача о высоте бинарного дерева

Type TNode = ^Node;
         Node = record
            info : integer;
            depth : integer;
            left , right : TNode;
         end;
     
    Var root : TNode;
        depth ,  n , i , x : integer;
     
    Procedure addToTree(var root : TNode; depth , x : integer);
    Begin
        if root = Nil then begin
            new(root);
            root^.left := Nil;
            root^.right := Nil;
            root^.depth := depth;
            root^.info := x;
        end else if (root^.info > x) then
            addToTree(root^.left , depth + 1 , x)
        else
            addToTree(root^.right , depth + 1 , x); 
    End;
     
    Procedure getDepthOfTree(root : TNode);
    Begin
        if root = Nil then exit;
        if root^.depth > depth then
            depth := root^.depth;
        getDepthOfTree(root^.left);
        getDepthOfTree(root^.right);    
    End;
     
   Begin
        
        root := Nil;
          repeat
           read(x);
           if x<>0 then begin
           addToTree(root , 0 , x);
           end;
           until x=0;
                     
        depth := -1;
        getDepthOfTree(root);
        WriteLn(depth);
       End.

type
  PNode = ^TNode;
  TNode = record
    left, right: PNode;
    data: Integer;
  end;
 
procedure treeAdd(var root: PNode; data: Integer);
  procedure Add(var r: PNode);
  begin
    if nil=r then begin
      New(r); r^.left:=nil; r^.right:=nil; r^.data:=data;
    end else if data<r^.data then Add(r^.left) else Add(r^.right);
  end;
begin
  Add(root);
end;
 
function Max(a, b: Integer): Integer;
begin
  if a<b then Max:=b else Max:=a;
end;
 
function treeDepth(const root: PNode): Integer;
begin
  treeDepth:=0;
  if nil<>root then treeDepth:=1+Max(treeDepth(root^.left),treeDepth(root^.right));
end;
 
var r: PNode; t: Integer;
begin {r:=nil;}
  repeat
    Read(t);
    if t<>0 then treeAdd(r,t)
    else Break;
  until False;
  WriteLn(treeDepth(r));
end.