Написать программу, которая выводит имя и тип всех файлов в какой либо папке — Pascal(Паскаль)

uses Dos, Crt;
 
var
  DirInfo: TSearchRec;
begin               { Change Archive to faArchive }
  FindFirst('*.PAS', faArchive, DirInfo);               {
Same as DIR *.PAS }
  while DosError = 0 do
  begin
    Writeln(DirInfo.Name);
    FindNext(DirInfo);
  end;
end.