Построить бинарное дерево из целочисленных элементов, подсчитать его высоту

program project1;
type
  TData  = integer;
  TTree = ^Tree;
  Tree = record
    Data : TData;
    Left, Right : TTree;
  end;
procedure AddToTree(var T : TTree; aData : TData);
begin
  If T=nil then begin
    New(T);
    T^.Data:=aData;
    T^.Left:=nil; T^.Right:=nil;
  end else If T^.Data>=aData then AddToTree(T^.Right,aData)
  else AddToTree(T^.Left,aData);
end;
procedure PrintTr(T : TTree);
begin
  If T = nil then exit;
  PrintTr(T^.Left);
  write(T^.Data:4);
  PrintTr(T^.Right);
end;
function HightTr(aTree : TTree) : integer;
var MaxL : integer;
procedure Uroven(aTree : TTree; L : integer);
begin
  if aTree = nil then exit;
  If L > MaxL then MaxL := L;
  Uroven(aTree^.Left,L+1);
  Uroven(aTree^.Right,L+1);
end;
begin
  MaxL := 0;
  Uroven(aTree,0);
  HightTr := MaxL;
end;
var
  n, i : integer;
  a : TData;
  T : TTree;
begin
  write('Number of Nodes in tree : '); readln(n);
  T := nil; randomize;
  for i := 1 to n do begin
    a := random(51)-25;
    write(a:4);
    AddToTree(T,a);
  end;
  writeln(#10,#13,'Infix Order :');
  PrintTr(T);
  writeln;
  writeln('Hight Tree : ',HightTr(T));
  readln;
end.