Длина до элемента в дереве

if (Tree^.left <> nil) and (Tree^.right <> nil) then
  begin
    l := Tree^.left;
    r := Tree^.right;
    node_length(l);
    node_length(r);
    writeln(max);
    inc(max);
  end;
  if (Tree^.left <> nil) and (Tree^.right <> nil) then max := max - 1;
  if (Tree^.left <> nil) or (Tree^.right <> nil) then max := max + 1;

меньше корня - х - больше корня

Ввод a;
Если а<корня то ищем в левой части:
Если первый элемент не а то счетчик +1 и собственно потом вывод счетчика:
А если элемент не найден то вывод не найден.

type
  TInf=integer;
  pTree=^Tree;
  Tree=record
    Inf:TInf;
    Left,Right:pTree;
  end;
procedure AddToTree(var aT:pTree;aInf:TInf);
begin
  If aT=nil then begin
    New(aT);
    aT^.Inf:=aInf;
    aT^.Left:=nil;
    aT^.Right:=nil;
  end else if (aInf>=aT^.Inf) then AddToTree(aT^.Right,aInf)
  else AddToTree(aT^.Left,aInf);
end;
procedure PrintT(aT:pTree);
begin
  If aT=nil then exit;
  PrintT(aT^.Left);
  write(aT^.Inf:7);
  PrintT(aT^.Right);
end;
function SeekElm(aT:pTree;aElm:TInf):boolean;
begin
   If aT=nil then SeekElm:=false
   else If aElm=aT^.Inf then SeekElm:=true
   else If aElm>aT^.Inf then SeekElm:=true and SeekElm(aT^.Right,aElm)
   else SeekElm:=true and SeekElm(aT^.Left,aElm);
end;
function SeekLen(aT:pTree;aElm:TInf):integer;
begin
   If aT^.Inf=aElm then SeekLen:=0
   else If aElm>aT^.Inf then SeekLen:=1+SeekLen(aT^.Right,aElm)
   else SeekLen:=1+SeekLen(aT^.Left,aElm);
end;
var T:pTree;
    i,n:integer;
    a:TInf;
begin
  T:=nil;
  write('Количество узлов в дереве: '); readln(n);
  randomize;
  for i := 1 to n do begin
    a:=random(51)-25;
    write(a:7);
    AddToTree(T,a);
  end;
  writeln;
  PrintT(T);
  write(#10,#13,'Введите элемент для поиска: '); readln(a);
  If not SeekElm(T,a) then writeln('Элемент не найден.') else begin
  writeln('Длинна пути до заданного узла: ',SeekLen(T,a));
  end;
  readln;
end.