Работа с папками Опции

[Qleek]

Здравствуйте, это мое первое сообщение на форуме...
Вот у меня такая задачка:
прога должна считать с дискеты названия папок и вывести их на экран.
Сразу вопрос: возможно ли это если дириктории имеют русские названия или название слишком длинное...?
Полистал учебники, но ничего похожего не нашел...
Помогите пожалуйста, если можете...

[volvo]

как заставить программу прочитать название папок? для этого есть команда?

Для этого пользуемся вот такой конструкцией (она ищет все директории в корневом каталоге 'A:\' и печатает их названия...):

Код

uses dos;
var sRec: SearchRec;
begin
 findfirst('A:\*.*', directory, sRec);
 while doserror = 0 do
   begin
     with sRec do write(name:15);
     findnext(sRec)
   end;
end.