Деревья: найти длину пути (число ветвей) от корня до ближайшей вершины с заданным значением

type 
tree=^ptree; 
ptree=record 
key:integer; 
left:tree;
right:tree;
end; 
 
var
tr:tree;
a,b:integer;
 
function maketree(n:integer;  p:tree):tree;
var
r:tree;
nl,nr:integer;
Begin
if (n = 0) then
    begin
    p:=nil;
    maketree:=p;
    exit;
    end;
nl:=n div 2;
nr:= n - nl - 1;
new(r);
r^.left:=nil;
r^.right:=nil;
 
readln(r^.key);
r^.left:= maketree(nl, r^.left);
r^.right:= maketree(nr, r^.right);
p:=r;
 
maketree:= p;
exit;
end;
 
procedure printtree(root:tree; l:integer);
var
p:tree;
i:integer;
Begin
p:=root;
if (root <> nil) then
    begin
    printtree(p^.right, l+2);
    for i:=0 to l-1 do
    write('** ');
    
    writeln(root^.key);
    printtree(root^.left, l+2);
    end;
end;
 
function lorens(root:tree; n:integer):integer;
var
l,r:integer;
 
Begin
    l:=0;
    r:=0;
if root <> nil then
    begin
    if root^.key = n then
        lorens:=1
    else
        begin
        if root^.left <> nil then
            l:=lorens(root^.left, n);
        if root^.right <> nil then
            r:= lorens(root^.right, n);
        if ((r <> 0) and (l <> 0)) then
            if (r > l) then
            begin
            lorens:= l+1;
            exit;
            end
            else
            begin
            lorens:= r+1;
            exit;
            end;
        if ((l = 0) and (r <> 0)) then
            begin
              lorens:= r+1;
              exit;
            end
        else
            if ((r = 0) and (l <> 0)) then
                begin
                  lorens:= l+1;
                end
    else
       if (r=0) and (l=0) then
          lorens:=-1;
        end;
    end
else
    lorens:= -1;
exit;
 
End;
 
Begin
new(tr);
writeln('enter: ');
readln(a);
tr:= maketree(a, tr);
printtree(tr, 2);
writeln('enter search element: ');
readln(b);
 writeln(lorens(tr, b));
end.