{************************************************
                 Hugo Eti‚vant
     http://www.multimania.com/cyberzoide/
      e-mail : cyberzoide@multimania.com
      (pour une aide en Turbo Pascal 7.0)
*************************************************}


Program ex21;

Uses dos;

Var fichier : SearchRec;

BEGIN
     FindFirst('*.PAS', Archive, fichier);
     While DosError = 0 Do
           Begin
                 WriteLn(fichier.Name);
                 FindNext(fichier);
           End;
END.