procedure DFS( LeGraphe: Graphe);
var CmptrVisite,
    IndexSommet : 0..MaxNbSommets;
    NumeroDOrdre: array[1..MaxNbSommets] of integer;

procedure Visite (IndexSommet : integer);
var Voisins: SerieDeSommets;
    Voisin: integer;
begin
  CmptrVisite := CmptrVisite + 1;
  NumeroDOrdre[IndexSommet]:=CmptrVisite;
  write(NomSommet(IndexSommet,LeGraphe), ' ');
  Voisins := SommetsVoisins(IndexSommet,LeGraphe);
  Voisin := 0;
  if not FinDeSerie(Voisins) then begin
    repeat
      if Voisin=0 then Voisin := PremierSommet(Voisins)
      else Voisin := SommetSuivant(Voisins);
      if NumeroDOrdre[Voisin]=0 then
      Visite (Voisin);
    until FinDeSerie(Voisins);
    end; { if not FinDeSerie }
end; { Visite }

begin { DFS }
  CmptrVisite := 0;
  for IndexSommet:= 1 to NombreDeSommets(LeGraphe: Graphe) do
    NumeroDOrdre[IndexSommet]:=0;
  for IndexSommet := 1 to NombreDeSommets(LeGraphe: Graphe) do
    if NumeroDOrdre[IndexSommet] = 0 then
      Visite (IndexSommet)
end; { DFS }