Mine

uses dos;
type

var
  s : TSearchrec;
  q : string;

begin
  write ('Enter qualifier to search = '); readln(q);

  findfirst(q,AnyFile,s);
  while DosError=0 do
  begin
    writeln(s.name);
    findnext(s);
  end;
end.