Pascal/Turbo Pascal - arbol binario

Tengo un procedimiento que calcula el número de nodos de un árbol binario. Necesito modificarlo para que sólo me calcule el número de nodos en un nivel dado. Alguna idea? Aquí os dejo el código:

procedure nivel(a:tarbol;n:integer);
var c:tipo_cola;
cont:integer;
begin
cont:=0;
c_crear(c);
if a<>nil then begin
c_agregar(c,a);
while not c_vacia(c) do
begin
c_sacar(c,a);
writeln(a^.info);
cont:=cont+1;
if a^.izq<>nil
then c_agregar(c,a^.izq);
if a^.der<>nil
then c_agregar(c,a^.der);
end;
end;
writeln('el num de nodos es ',cont);
end;

Gracias.