По заданному n подсчитать число всех вершин глубины n в заданном дереве

Program Tree;
Type inform = Integer;
ss = ^zveno;
zveno = Record
key: Integer;
inf: Inform;
left, right: ss;
end;
Var t: ss;
key: Integer;
inf: Inform;
n,c,i,sv: Integer;
 
{----формирование дерева----}
Procedure Insert (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
else begin
If x<p^. inf Then Begin Insert (p^. left,x); End;
If x>=p^. inf Then Begin Insert (p^. right,x); End;
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;
 
     
function sglubina(p:pointer):integer;
var l,r,x:integer;
begin
        if p<>nil then begin
                                   l:=sglubina(left);
                                   r:=sglubina(right);
                                   if l<r then x:=r else x:=l;
                                   sglubina:=x+1;
                            end
                     else sglubina:=0;
end;
{----обход дерева----}
Begin 
Writeln ('Введите количество элементов дерева: ');
Readln (n);
For i:=1 To n Do
Begin
Writeln ('Введите элемент дерева');
Read (c);
s:=s+p;
Insert (t,c);
End;
writeln('Введите глубину');
readln(p);
 
Function sglubina(p:pointer):integer;
 
 End; 
 
 
writeln('сумма вершин глубин бинарного дерева: ',s);
Print (t,0);
End.