Как сравнить между собой ветки бинарного дерева?

const n: array[1 .. 9]of integer=(20,10,30,15,40,25,45,5,35); 
type
  TPtree = ^Ttree;
  Ttree = Record
    Dat : integer;
    Left: TPtree;
    Right: TPtree;
  End;
var
  T : TPtree;
  i,y,c: integer;
//
procedure AddToT( var T: TPtree; Y:integer);  //заполнение древа
 begin
  if T = nil then begin
    New(T);
     T^.Dat := n[i];
      T^.Left := nil;
       T^.Right := nil
   end else
  if n[i] < T^.Dat then
     AddToT(T^.Left, n[i])
  else 
     AddToT(T^.Right, n[i]);
end; 
//
procedure Output(T:TPtree);  //вывод левой ветки древа
 begin
  if T=nil then 
   exit;   
  Output(T^.Left);  
   write(' ',T^.Dat);
   inc(c);
end;
//
 begin                      //сама программа
  for i := 1 to 9 do
   begin
  AddToT(T, Y);
   end; 
    begin
   c:=0;
  write(' Минимальные значения: ');
     Output(T);
     writeln;
     write(' Количество листьев с минимальным значением: ', c);
    end;
  end.

function Depth(T:TPtree) : Integer;
var L, R : Integer;
begin
   if T=nil then Depth:=0
   else
   begin
     L := Depth(T^.Left);
      if L>R then R:=L;
      if (L=0) and (R>0) then write(R);
       R:=L;
       Depth := L + 1;
       write(R);
   end;
end;

function Depth(T:TPtree) : Integer;    {счётчик уровней}
begin
   if T=nil then Depth:=0
   else
   begin
     L := Depth(T^.Left);
      if L>R then R:=L;
       if (L=0) and (R>0)
       then write(' ',R);
       R:=L;
       Depth := L + 1;
   end;
end;
      Depth(T);
      write(' ',R);

const n: array[1 .. 9]of integer=(20,10,30,15,40,25,45,5,35);
type
  TPtree = ^Ttree;
  Ttree = Record
    Dat : integer;
    Left: TPtree;
    Right: TPtree;
  End;
var
  T, p : TPtree;
  i,y,c: integer;
//
procedure AddToT( var T: TPtree; Y:integer);  //заполнение древа
 begin
  if T = nil then begin
    New(T);
     T^.Dat := Y;
      T^.Left := nil;
       T^.Right := nil
   end else
  if Y < T^.Dat then
     AddToT(T^.Left, Y)
  else
     AddToT(T^.Right, Y);
end;
//
procedure Output(T:TPtree);  //вывод левой ветки древа
 begin
  if T=nil then
   exit;
  Output(T^.Left);
   write(' ',T^.Dat);
  Output(T^.Right);
end;
function MinNode(T : TPTree) : TPTree;
begin
  if T = nil then exit;
 
  if T^.Left = nil then MinNode := T
  else MinNode := MinNode(T^.Left);
 
end;
 
//
 begin                      //сама программа
  for i := 1 to 9 do
   AddToT(T, n[i]);
 
   Output(T);
   writeln;
 
 
  c:=0;
  if MinNode(T)^.Right = nil then c := 0            //правый потомок узла с мин значением пуст - листьев у минимального значения нет
  else if (MinNode(T)^.Right^.Left = nil) and (MinNode(T)^.Right^.Right = nil) then //правый потомок узла с минимал значением лист - не имеет потомков
  c := 1;
  write(' Минимальные значения: ',MinNode(T)^.Dat);
 
  write(' Количество листьев с минимальным значением: ', c);
 
 
    readln;
  end.

const n: array[1 .. 9]of integer=(20,10,30,15,40,25,45,5,35); 
type
  TPtree = ^Ttree;
  Ttree = Record
    Dat : integer;
    Left: TPtree;
    Right: TPtree;
  End;
var
  T : TPtree;
  i,y,c,L,R: integer;
//
procedure AddToT( var T: TPtree; Y:integer);  //заполнение древа
 begin
  if T = nil then begin
    New(T);
     T^.Dat := n[i];
      T^.Left := nil;
       T^.Right := nil
   end else
  if n[i] < T^.Dat then
     AddToT(T^.Left, n[i])  //минимальное значение в левую ветку
  else 
     AddToT(T^.Right, n[i]);
end; 
//
procedure Output(T:TPtree);  //вывод левой ветки
 begin
  if T=nil then 
   exit;   
  Output(T^.Left);  
   write(' ',T^.Dat);
   inc(c);
end;
//
function Depth(T:TPtree) : Integer;    {поиск вершины с мин.значением!!!}
begin
   if T=nil then Depth:=0
   else
   begin
     L := Depth(T^.Left);
      if L>R then R:=L;
       if (L=0) and (R>0)
       then write(' ',R);
       R:=L;
       Depth := L + 1;
   end;
end;
//
 begin                      //сама программа
  for i := 1 to 9 do
   begin
  AddToT(T, Y);
   end; 
    begin
   c:=0;
  write(' Минимальные значения: ');
     Output(T);
     writeln;
     writeln(' Количество веток с минимальным значением: ', c);
      Depth(T);
      write(' Глубина вершины с минимальным значением: ',R);
    end;
  end.