Как отрубить все "ненужные" клавиши в меню программы. Опции

[Виталий_Сигов]

Здравствуйте, уважаемые форумчане.
Вопрос у меня такой: как можно "отрубить" ненужные клавиши в меню программы кроме цифровых клавиш 1, 2, 3, 4 и 5 ?

Код

.........
writeln('   Меню   ');
writeln(' 1:  Создание файла ');
writeln(' 2:   Чтение файла  ');
writeln(' 3:  Добавление записи в файл  ');
writeln(' 4:  Выборка записей из файла  ');
writeln(' 5:      Выход      ');
readln(k);
case k of
1:goto 6;
2:goto 20;
3:goto 30;
4:goto 40;
5:goto 12;
end;
........