Readln (choice2);. Val (choice2, choice, code);

Val (choice2, choice, code);

Для контроля ввода рекомендуется применение процедуры

Val (choice2, choice, code);

преобразующей введённую в символьной форме информацию (choice2) в число (choice). Параметр Code показывает результат преобразования: если значение параметра Code = 0, то преобразование прошло успешно, иначе необходимо информировать пользователя об ошибке и заставить повторить ввод. Вариант реализации этой защиты

Repeat

writeln(' Заголовок меню');

writeln('1. Первый вариант действий');

writeln('2. Второй вариант действий ');

writeln('3. Третий вариант действий’);

writeln('4. Четвёртый вариант действий ');

writeln('5. Выход из программы');

writeln('Ваш выбор:');

Readln (choice2);

Val (choice2, choice, code);

if (code<>0)

Choice2,

’ Повторите ввод! ');

until code=0 ;

Case choice of

Begin

. . .

PROGRAM Menu;{Окончательный вариант }

Var

exit_ans : string;

choice, code : integer;

F, Fl : boolean;

{Тело главной вызывающей программы}

Begin

F := true; { Флаг управления циклом меню }

while (F = true) do

Begin

Repeat

writeln(' Заголовок меню');

writeln('1. Первый вариант действий');

writeln('2. Второй вариант действий ');

writeln('3. Третий вариант действий’);

writeln('4. Четвёртый вариант действий ');

writeln('5. Выход из программы');

writeln('Ваш выбор:');