Чтение из корневого каталога дискеты, не знаю, что делать! Опции

[=MaZaTRaKer=]

Всем привет! Люди, в субботу зачет, помогите!
Задача: "Прочитать из корневого каталога дискеты, все файлы с расширением *.doc"
Кто знает, киньте, пожалуйста, пример кода!

[volvo]

Что значит "прочитать"? Список что-ли вывести? Тогда это FindFirst+FindNext - три строчки кода...

[=MaZaTRaKer=]

Да, вывести список, а ты не мог бы напечать три этих строчки?

[volvo]

uses dos;
var DirInfo: SearchRec;
begin
  FindFirst('A:\*.DOC', Archive, DirInfo);
  while DosError = 0 do begin
    Writeln(DirInfo.Name);
    FindNext(DirInfo);
  end;
end.

[Гость]

Кто-нибудь сможет, буквально за 10 мин помощь мне?!Мне необходимо написать программу на Паскале, считающую количество файлов созданных в текущем месяце на корневом каталоге дискеты

[=MaZaTRaKer=]

Volvo, большое спасибо, все работает! Но где там идет использование прерывания 13h?

[volvo]

Но где там идет использование прерывания 13h?

А где у тебя в задании было сказано про использование этого прерывания? Я что, телепат?

[Гость]

Это =MaZaTRaKeR=! Volvo, прости пожалуйста, но, нам нельзя использовать dos как сделать эту же задачу с использованием 13h?