помогите закончить решение задачи.

[gilex]

"Составить программу, определяющую количество вершин к - того уровня бинарного дерева."
я формирую и вывожу дерево. ну вот сложность в том, что я и рекурсию пробовал и циклы всякие ничего неполучается а обход и подсчет количества вершин К-того уровня сделать не могу. вот фрагмент моей проги:

Program derevo;
Uses Crt;

Type inform = Integer;
ss = ^zveno;
zveno = Record
key: Integer;
inf: Inform;
left, right: ss;
End;

Var t:ss;
n,c,i,k: Integer;


{----формирование дерева----}

Procedure Vstavka (Var p: ss; x: Integer);
Begin
If p = Nil Then
Begin
New (p);
p^.inf:=x;
p^.key:=1;
p^.left:=Nil;
p^.right:=Nil;
End;
If x<p^.inf Then Begin Vstavka (p^.left,x); End;
If x>p^.inf Then Begin Vstavka (p^.right,x); End;
End;

{----вывод дерева----}

Procedure Print (Var p: ss; h: Integer);
Var i: Integer;
Begin
If p <> Nil Then
Begin
Print(p^.right,h+4);
For i:=1 To h Do Write (' ');
Writeln (p^.inf);
Print (p^.left,h+4);
End;
End;


Begin ClrScr;
Writeln ('Введите количество ключей дерева: ');
Readln (n);
Writeln ('Введите информ часть дерева: ');
For i:=1 To n Do
Begin
Read (с);
Vstavka (t,c);
End;
Print (t,c);
Writeln ('Введите уровень: ');
Readln (n);

А че тут дальше не пойму как реализовать. где-то в этой части проги должен быть подсчет количества вершин заданного уровня.

Readkey;
End.

подскажите пожалуйста. заранее благодарен.

[gilex]

ребят ну че никто в деревьях не шарит?