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

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.

procedure leafs(tree : U);
var a : array [0..1000] of Integer;
 
  procedure calculate(tree : U);
  begin
    if tree^.depth > a[0] then
      begin
        inc(a[0]);
        a[tree^.depth] := 0;
      end;
    if (tree^.l = nil) and (tree^.r = nil) then
      inc(a[tree^.depth])
    else
      begin
        if tree^.l <> nil then calculate(tree^.l);
        if tree^.r <> nil then calculate(tree^.r);
      end;
  end;
  
var i : Integer;
begin
  a[0] := 0;
  calculate(tree);
  for i := 1 to a[0] do
    WriteLn(i, ') ', a[i]);
end;