Imprimir binariooo

PROCEDURE ImprimirBinario (a: Binario);
(* Imprime en orden inverso.
   La indentacion de cada nodo es su nivel. *)

   PROCEDURE ImprimirNodos (a: Binario; espacios: CARDINAL);
   VAR espaciosImpresos : CARDINAL;
   BEGIN
      espaciosImpresos := 1;
      espacios := espacios + 1;
      IF TieneHijoDerecho(a) THEN
         ImprimirNodos(a^.derecho, espacios);
      END;
      WHILE espaciosImpresos <= espacios DO
         WriteString(" ");
         espaciosImpresos := espaciosImpresos + 1;
      END;
      WriteString(InfoAString(a^.info));
      WriteLn();
      IF TieneHijoIzquierdo(a) THEN
         ImprimirNodos(a^.izquierdo, espacios);
      END;
   END ImprimirNodos;

BEGIN

   ImprimirNodos(a, 0);

END ImprimirBinario;

END Binario.