Двоичное дерево! Не могу дорешать...

Uses Crt;
Type Tr=^tt; tt=Record
           Data:integer;
           Left,Right:Tr;
           end;
Var
   x:integer;
   kd,f :Tr;
 {zapolnenee} 
Procedure dob (n :integer; var h:Tr);
Begin 
  If h = nil then begin
                  New(h);
                  With h^ do
                       begin
                       Data:=n;
                       Left:=nil;
                       Right:=nil;
                       end;
                  end
             else if n<= h^.Data then dob(n,h^.left)
                                 else dob(n,h^.right);
 End;
{vevod na ekran} 
Procedure Print(var t:Tr);
Begin
  If t<>nil then
             with t^ do begin
                        Print(left);
                        write (data,'  ');
                        Print(right);
                        end;
 End;
{ obxod dereva} 
Function dep(g:tr) :integer; 
var r,l :integer;
begin
if g<>nil
          then begin
              l:=dep(g^.left);{obxod levogo poddereva}
              r:=dep(g^.right);{obxod pravogo poddereva}
              if l>r then dep:=l+1
                     else dep:=r+1;
              end
          else dep:=0;
end;
 Begin
  ClrScr;
 writeln('vvod vershin; okonchanie - 0');
 kd:=nil;
 f:=nil;
 read (x);
 while x<>0 do
            begin
            dob(x,kd);
            writeln('ocherednoe chislo');
            read (x);
            end;
 f:=kd;
 Print(kd);
 writeln;
 writeln;
 writeln (dep(kd));
 readln;
 Readln;
end.