Imprimir binariooo

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

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

   ImprimirNodos(a, 0);

END ImprimirBinario;