Бинарные деревья

Program derevo;
Uses Crt;

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

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

procedure pkv(tt:ss;nk:integer);
 begin
 if(nn=nk) then begin k:=k+1;;nn:=nn-1;exit;end;
 if(tt^.left<>nil)then begin nn:=nn+1;pkv(tt^.left,nk);end;
 if(tt^.right<>nil)then begin nn:=nn+1;pkv(tt^.right,nk);end;
 nn:=nn-1;
 end;
{----формирование дерева----}

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 ('Vvedite koli4estvo klju4ej: ');
Readln (n);
For i:=1 To n Do
Begin
Read (c);
Vstavka (t,c);
End;
Print (t,c);
Writeln ('Vvedite urovenj: ');
Readln (n);
nn:=1;
k:=0;
pkv(t,n);
writeln('Koli4estvo vershun na ',n,' urovne = ',k);
Readkey;
End.