{* Работа с дисками *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of

•  'Подсчет количества дисков' : Uses DRVCOUNT.pas; { Программа показывает количество доступных дисковых устройств ... }
•  'Серийный номер IDE винта' : Uses IDEHDD.pas; { Получение серийного номера IDE-винчестера ... }
•  'Серийный номер, Метка тома и тип FAT диска' : Uses .pas; { Серийный номер, Метка тома и тип FAT диска ... }
•  'Что спрятано под SUBST' : Uses CANONIC.pas; { Определение канонического имени драйва, созданного по SUBST ... }

Else
 writeln('Ничего не выбрано!');
End;

---

Program pas;

.....