Finitario agus

PROCEDURE ImprimirFinitario (a: Finitario);
(* Imprime cada nivel de 'a', en orden creciente de nivel, segun
   criterios y formatos descriptos en Nivel y en ImprimirLista. *)
VAR
   altura, alturaLoop: CARDINAL;
   nivel: Lista;
BEGIN

   IF NOT EsVacioFinitario(a) THEN
      altura := AlturaFinitario(a);
      alturaLoop := 1;
      WHILE alturaLoop <= altura DO
         nivel := Nivel(alturaLoop, a);
         ImprimirLista(nivel);
         DestruirLista(nivel);
         alturaLoop := alturaLoop + 1;
      END;
   END;

END ImprimirFinitario;