Подсчитать число вершин на n – ом уровне непустого дерева Т (корень считать вершиной нулевого уровня)

type ref = ^node;
         node = record
         key, count: integer;
         left, right: ref;
         end;
 
procedure Print_Btree (w: ref; l: integer);
var i : integer;
begin
    if (w <> Nil) then
    with w^ do
    begin
         Print_Btree(right,l+1);
         for i:= 1 to l*4 do
         write(' ');
         writeln(key);
         Print_Btree(left,l+1);
    end;
end;
 
function tree (n : integer): ref;
var
    newnode : ref;
    x, l, r : integer;
begin
    if n = 0 then tree := nil else
    begin
         l := n div 2; r := n - l - 1;
         read(x);
         new (newnode);
         with newnode^ do
         begin
              key := x;
              left := tree(l);
              right := tree(r);
         end;
         tree := newnode;
     end;
end;
 
function level_n(root: ref; level, curlevel: integer):integer;
var c: integer;
begin
  if (root<>nil) then 
  begin
    if (curlevel = level) then inc(c)
    else 
    begin
      level_n(root^.left, level, succ(curlevel));
      level_n(root^.right, level, succ(curlevel)); 
    end;
  end;
end;
{Основная программа}
var
     root: ref;
     k, l, cl, c: integer;
begin
     root := Nil;
     writeln('Дерево идеально - сбалансированное.');
     writeln('Вводи числа (первое - количество чисел)');
     read(k);
     root := tree(k);
     writeln('Печать дерева');
     Print_Btree (root,2);
     writeln('Введите нужную вернишу');
     read(l);
     writeln('Введите количество вершин');
     read(cl);
     level_n(root, l, cl);
     writeln(c)