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

[Ветас]

Здравствуйте, уважаемые форумчане.
Вопрос у меня такой: как можно "обрубить" ненужные клавиши в меню программы кроме цифр 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;

[Stilet]

Что значит обрубить?
А сейчас какие работают?

[Ветас]

чтобы при выводе меню функционировали только клавиши 1 2 3 4 5
а остальные -нет.

[Lawless]

Сообщение от Ветас

чтобы при выводе меню функционировали только клавиши 1 2 3 4 5
а остальные -нет.

repeat
 writeln('Введите число от 1 до 5');
 readln(a);
until(a = 1) or (a = 2) or (a = 3) or (a = 4) or (a = 5);

[Stilet]

ЛУче так:

repeat
 writeln('Введите число от 1 до 5');
 readln(a);
until (a in [1..5]);

[Ветас]

Большое спасибо за ответы!

[Desha]

Вопрос в тему.

repeat
 writeln('Введите число от 1 до 5');
 readln(a);
until (a in [1..5]);

например
a:byte.
А если пользователь введет букву?е. Возможна ли еще какая нить проверка на ввод кроме {I-}//{I+}?