Pascal/Turbo Pascal - recorrido anchura arbol

Hola!!! Tengo el codigo para recorrer un arbol en anchura pero no se como hacer para que cuando me imprime el numero me muestre en que nivel esta. Aqui os dejo el codigo

procedure recorreanchura(a:tarbol);
var c:tcola
begin
colavacia(c);
if a<>nil then
begin
poner(c,a);
while not esvacia(c) do
begin
quitar(c,a);
writeln(a^.info);
if a^.izq<>nil then
poner(c,a^.izq);
if a^.der<>nil then
poner(c,a^.der);
end;
end;
end;
end;

Graciass!!