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.