Возник вопрос: как при работе с текствоыми файлами, ввести в программу имена сразу несколько файлов, зная что они есть в данной папке, но не вводить их имена с клавиатуры, а искать их в папке?

К примеру, в папке есть 15 файлов, среди них, допустим, три текстовых. Программа должна распознать формат файла и работать только с текстовыми. Как это реализовать?

Поиск -> "FindFirst" либо "FindNext"

либо Учебник -> (модуль DOS - работа с каталогами и файлами)

Спасибо!

Просьба пояснить код..

uses dos;
var
  DirInfo: SearchRec;  {Что это за тип переменных?}
  s: string;
begin
  readln(s); { например, '*.pas' }
  FindFirst(s, Archive, DirInfo); {как понять эту строку???}
  while DosError = 0 do {Что значит DosError}
  begin
    Writeln(DirInfo.Name); {DirInfo.name ???}
    FindNext(DirInfo);
  end;
end.

И как в дальнейшем эти найденные файлы можно "засунуть" в программу?

Хелп в Паскале не работает ?

Переписывать текст от туда сюда нету ни малейшего желания.

Блл...н, совсем забыл..