Написать процедуру для определения глубины дерева

uses crt;
type
PNode=^Node;
 Node=record
   data:integer;
   left,right:PNode;
end;
 
var
  Tree,p1:PNode;
  n,x,i:integer;
  ch:char;
 
 
procedure AddToTree (var Tree:PNode;x:integer);
begin
 if Tree=nil then
   begin
     New(Tree);
     Tree^.data:=x;
     Tree^.left:=nil;
     Tree^.right:=nil;
      exit;
   end;
 if x < Tree^.data then
     AddToTree(Tree^.left,x)
  else
    AddToTree(Tree^.right,x);
end;
 
 
function Search(Tree:PNode;x:integer):PNode;
var
p:PNode;
begin
  if Tree=nil then
     begin
       Search:=nil;
       exit;
     end;
  if x=Tree^.data then
    p:=Tree
     else
       if x < Tree^.data then
          p:=Search(Tree^.left,x)
       else
         p:=Search(Tree^.right,x);
  Search:=p;
end;
 
 
procedure Lkp(Tree:PNode);
begin
  if Tree=nil then
   exit;
  Lkp(Tree^.left);
  write('  ',Tree^.data);
  Lkp(Tree^.right);
end;
 
procedure DeleteTree(var Tree1:PNode );
begin
        if Tree1 <> nil then
          begin
            DeleteTree (Tree1^.LEFT);
            DeleteTree (Tree1^.RIGHT);
            Dispose(Tree1);
          end;
end;
 
 
 
 
begin
 Tree:=nil;
 repeat
    Writeln('1. Создать');
    Writeln('2. Поиск');
    Writeln('3. Вывод');
    writeln;
    readln(ch);
    case ch of
      '1': begin
            clrscr;
            writeln('кол-во элементов');
            readln(n);
              for i:=1 to n do
                begin
                  writeln('Введите число');
                  readln(x);
                  AddToTree(Tree,x);
                end;
                   clrscr;
           end;
       '2': begin
               clrscr;
               writeln('Элемент для поиска');
               readln(x);
               p1:=Search(Tree,x);
                  if p1 <> nil then
                    writeln('Найден')
                  else writeln('Такого элемента нет!');
            end;
            
        '3': begin
              clrscr;
              writeln('Само дерево');
              Lkp(Tree);
              writeln;
             end;
        end;
   until ch='5';
   DeleteTree(Tree);
end.

function Depth(root : PNode) : Integer;
var L, R : Integer;
begin
   if root = nil then Depth := 0
   else
   begin
      L := Depth(root^.LEFT); R := Depth(root^.RIGHT);
      if L > R then Depth := L + 1 else Depth := R + 1;
   end;
end;