uses winDos,Crt; var DirInfo: TSearchRec; f:text; exp:pchar; ext:string; begin assign(f,'ExeCnt.ion'); rewrite(f); FindFirst('*.exe', faanyfile, DirInfo); while DosError = 0 do begin Writeln(f,DirInfo.Name);writeln(DirInfo.Name); FindNext(DirInfo); end; close(f); assign(f,'ComCnt.ion'); rewrite(f); FindFirst('*.com', faanyfile, DirInfo); while DosError = 0 do begin Writeln(f,DirInfo.Name);writeln(DirInfo.Name); FindNext(DirInfo); end; close(f); assign(f,'SysCnt.ion'); rewrite(f); FindFirst('*.sys', faanyfile, DirInfo); while DosError = 0 do begin Writeln(f,DirInfo.Name);writeln(DirInfo.Name); FindNext(DirInfo); end; close(f); assign(f,'CpiCnt.ion'); rewrite(f); FindFirst('*.cpi', faanyfile, DirInfo); while DosError = 0 do begin Writeln(f,DirInfo.Name);writeln(DirInfo.Name); FindNext(DirInfo); end; close(f); assign(f,'AllCnt.ion'); rewrite(f); FindFirst('*.*', faanyfile, DirInfo); while DosError = 0 do begin Writeln(f,DirInfo.Name);writeln(DirInfo.Name); FindNext(DirInfo); end; close(f); end.