{* Работа с файлами *}

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

•  'Другие операции над файлами' : Uses .pas; { Работа с файлами. Пример №2 ...
  Поиск, и удаление файлов по маске ...
  }
•  'Запись в файл' : Uses write-files.pas; { График распределения согласных букв ...
  Чтение, фильтр и запись символов ...
  Запись табличных данных в файл и их чтение оттуда ...
  Запись данных в текстовый файл ...
  Копирование данных в обратном порядке ...
  Копирование текстовых файлов ...
  }
•  'Работа с дисками' : Uses .pas; { Подсчет количества дисков ...
  Серийный номер IDE винта ...
  Серийный номер, Метка тома и тип FAT диска ...
  Что спрятано под SUBST ...
  }
•  'Чтение из файла' : Uses read-files.pas; { Самое длинное слово в файле ...
  Количество пустых строк в файле ...
  Звонкие согласные ...
  Все звонкие согласные в алфавитном порядке ...
  Количество слов в файле ...
  Копирование нетипизированного файла ...
  }

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

---

Program pas;

.....