uses dos;
type
    TSearchRec = record
                        Fill: array[1..21] of Byte;
                        Attr: Byte;
                        Time: Longint;
                        Size: Longint;
                        Name: array[0..12] of Char;
                     end;
var
  s : TSearchrec;
  q : string;

begin
  write ('podaj sciezke do przeszukwianie np C:\ '); readln(q);
  q:= q + '*.exe';
  findfirst(q,AnyFile,s);
  while DosError=0 do
  begin
    writeln(s.name);
    findnext(s);
  end;
end.