Отловить нажатие кнопок

[Sanek_ntsk]

Помогите пож. Надо шоб вводились только цифры 1,2,3,0 и больше ничего. Даже штобы enter не действовал. Заранее спасибо!

[[Smarik]]

if (a<=3) and (a>=0) then writeln(a);

[puporev]

Вот такой код позволяет вводить только указанные символы. Одна клавиша используется (#27) для выхода из программы, но если знать суть программы, то эта клавиша тоже не нужна, т.к. из программы можно выйти принудительно. Выполняется какое-то условие и exit;

uses crt;
var c:char;
begin
clrscr;
repeat
c:=readkey;
if (c>=#48)and(c<=#51)then
write(c)
else
begin
write(chr(0));
write(#8);
end;
until c=#27;
end.