Определить количество листьев на каждом уровне дерева итеративным способом

Type  
U = ^BinTree; 
BinTree = record 
  inf : integer;
  depth: integer;
  l, r : U 
  end;
 
var
Der:U;
input, f1, output, f2: text;
i,i1,i2: integer;
c: char;
inf:integer;
depth:integer;
lev:string[10];
 
procedure InData(var Tree : U; depth,x: integer);
begin
   If Tree = nil then 
   begin
        new(Tree);
        tree^.l := Nil;
        tree^.r := Nil;
        tree^.depth:=depth;
        tree^.inf := x
     end
   else if x < tree^.inf then 
    InData(tree^.l,depth+1, x)
     else 
      InData(tree^.r,depth+1, x)
end;
 
procedure PrintTree(tree : U);
begin
     if Tree <> Nil then 
     begin 
      PrintTree(tree^.l); 
      write(tree^.inf : 4); 
      PrintTree(tree^.r) 
    end;
end;
 
procedure getDepthOfTree(tree : U);
begin
    if tree = nil then exit;
    if tree^.depth > depth then
        depth := tree^.depth;
    getDepthOfTree(tree^.l);
    getDepthOfTree(tree^.r);    
end;
 
begin
assign(input, 'in.txt');
reset(input);
While not eof(input) do
  begin
    readln(input,inf);
    InData(Der,1,inf);
  end;
 
printtree(der);
getDepthOfTree(der);
writeln;
writeln(depth);
 
end.