write-files.PAS

{* Запись в файл *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User OfElse
 writeln('Ничего не выбрано!');
End;
Program pas;

.....