findfrst.pas

 {Findfrst.PAS}
 
 { Пример программы для процедур FindFirst и FindNext }
 
 Uses WinDos, WinCrt;
 
 Var DirInfo : TSearchRec;
 
 Begin
  FindFirst('*.PAS', faArchive, DirInfo);
  { Аналог команды DIR *.PAS }
  While DosError = 0 Do
   Begin
    WriteLn(DirInfo.Name);
    FindNext(DirInfo);
   End;
 End.