procedure Imprime(LeDico: VersNoeud);
const TailleFile = 100;
type Objet=record
             Mot: String80;
             Place: VersNoeud;
             end; { Objet }
     FileCirculaire=record
               Element: array[0..TailleFile] of Objet;
               IndexIn, IndexOut: 0..TailleFile;
               Plein:boolean;
               end; { FileCirculaire }
var MaFile: FileCirculaire;
    Obj: Objet;

  procedure Avance(N: VersNoeud; S: String80);
  var c:char;
      Splus:String80;
      l: integer;
      O: Objet;
  begin { Avance }
    if N^.Complet then writeln(S);
    Splus := S;
    l := length(Splus)+1;
    Insert(' ',Splus, l);
    for c := 'a' to 'z' do 
      if N^.Desc[c]<>nil then begin
        Splus[l] := c;
        O.Mot := Splus;
        O.Place := N^.Desc[c];
        Met(MaFile, O);
        end; { if N^.Desc[c]<>nil }
  end; { Avance }

begin { Imprime }
  MaFile.IndexIn := 0;
  MaFile.IndexOut := 0;
  MaFile.Plein := false;

  if LeDico<>nil then Avance(LeDico, '');
  while not Vide(MaFile) do begin
    Ote(MaFile, Obj);
    Avance(Obj.Place, Obj.Mot);
    end; {while}
end; { Imprime }