Работа в графике, интерфейс пользователя Опции

[Katrinka]

Как в паскале в графическом режиме сделать так, чтобы програма не реагировала на нажатие клавиш, отличных от некоторых определенных клавиш?
(в графич. режиме выводится меню и слева рисуется прямоугольник. При нажатии на кнопку меню, программа выводит в этом прямоугольнике некоторый текст, затем пользователь вводит некоторый другой тект. Так вот, если после этого нажать какую-нибудь клавишу кроме стрелок, то прога начинает очень глючить. Что делать?)

[Katrinka]

Процедура, осуществляющая ввод-вывод

procedure vvod_vivod(var a,b,epsilon:real); far;
var st11,st22,st33:string;
cod1,cod2,cod3:integer; j:real;
begin
moveto(23*d+tw,15*d);
OutText('Vvedite predeli integrirovania');

moveto(12*d+tw,16*d);
OutText('a= ');
repeat
moveto(11*d+tw,17*d);
st11:=Get_Input(11*d+tw,d*17);
until st11<>'';
val(st11,a,cod1);

moveto(11*d+tw,18*d);
OutText('b= ');
repeat
moveto(11*d+tw,19*d);
st22:=Get_Input(11*d+tw,d*19);
until st22<>'';
val(st22,b,cod2);

if a>b then
begin
j:=a; a:=b; b:=j;
end;
moveto(11*d+tw,21*d);
OutText('Vvedite tochnost');

moveto(11*d+tw,23*d);
OutText('epsilon= ');
repeat
moveto(11*d+tw,24*d);
st33:=Get_Input(11*d+tw,d*24);
until st33<>'';
val(st33,epsilon,cod3);


end;