work-files.PAS

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

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Другие операции над файлами' : Uses .pas; { Работа с файлами. Пример №2 ...
    Поиск, и удаление файлов по маске ...
    }
  •  'Запись в файл' : Uses write-files.pas; { График распределения согласных букв ...
    Чтение, фильтр и запись символов ...
    Запись табличных данных в файл и их чтение оттуда ...
    Запись данных в текстовый файл ...
    Копирование данных в обратном порядке ...
    Копирование текстовых файлов ...
    }
  •  'Работа с дисками' : Uses .pas; { Подсчет количества дисков ...
    Серийный номер IDE винта ...
    Серийный номер, Метка тома и тип FAT диска ...
    Что спрятано под SUBST ...
    }
  •  'Чтение из файла' : Uses read-files.pas; { Самое длинное слово в файле ...
    Количество пустых строк в файле ...
    Звонкие согласные ...
    Все звонкие согласные в алфавитном порядке ...
    Количество слов в файле ...
    Копирование нетипизированного файла ...
    }
Else
 writeln('Ничего не выбрано!');
End;
Program pas;

.....