Arbre binaire

Bonjour,j'aimerai bien que vous m'aidiez svp voici ma procédure:
procedure suprimer(var r:arbre);
begin
if r<>nil then
begin
dispose(r);
if r^.fg<> nil then
suprimer(r^.fg);
if r^.fd<>nil then
suprimer(r^.fd);
end;
end;
j'utilise le pascale ...je sais pas pour quoi ca marche pas correctement cette procédure elle vide l'arbre mais ils me reste toujours le dernier éléments
merci d'avance