{* Чтение из файла *}

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

•  'Все звонкие согласные в алфавитном порядке' : Uses ZVON.pas; { Выписать из текстового файла TEXT.TXT все встречающиеся звонкие согласные буквы в алфавитном порядке. ... }
•  'Звонкие согласные' : Uses ZVONK.pas; { Программа производит чтение из текстового файла TEXT.TXT и в соответствии с алфавитным порядком выводит на экран звонкие согласные, которые входят в каждое нечетное слово ... }
•  'Количество пустых строк в файле' : Uses TextF1.pas; { Программа подсчитывает количество пустых строк в текстовом файле ... }
•  'Количество слов в файле' : Uses cuntword.pas; { Количество слов в файле ... }
•  'Копирование нетипизированного файла' : Uses netipcopy.pas; { Копирование нетипизированного файла ... }
•  'Самое длинное слово в файле' : Uses pr_01.pas; { Программа, которая находит в файле самое длинное слово и указывает номер строки, где оно находится. ... }

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

---

Program pas;

.....