Consulta - TP Arboles- "Para cada nodo de un arbol Indique nombre del nodo padre"

[velapuerca88]

Hola, estube tratando de hacer este ejercicio(la idea es recorrerlo preorden) pero me tira el mensaje bien para el primer nodo,
y despues tira un error, a ese procedimiento le paso A.Raiz, ¿Lo podrias revisar?, muchas gracias

Código Delphi [-]
procedure pad ( p : posicionarbol);

begin
    if not ramanula(p) then
     begin
     if p <> a.raiz then
         begin
         showmessage ( 'NODO : ' + p.Datos.ds + '  PADRE : ' + padre(a,p).Datos.DS ) ;
         end;
     pad(p.HI);
     pad(p.HD);
    end;
end;