Pascal/Turbo Pascal - Seleccion de opciones sin errores.

Hola, Mi nombre es Matias y desarrollando un programita me encontré.
En una parte de mi programa te pide que elijas una opción. Para esto enumere las opciones y una un read para almacenar la elección en una variable de tipo integer, luego if variable=1 then tal cosa si es 2 tal cosa etc etc. Ahora, me gustaría que solo se pudiera ingresar un carácter, es decir cuando el read me pide un numero si el usuario quisiera podría escribir 1599987664 por decir algo, mientras que las opciones son solo 9.
Es solo por un tema de prolijidad pero existe algún modo de restringir al usuario para que solo pueda ingresar un dígito???

[Si mejor para entenderlo te pongo una muestra de una función que aria eso]

uses
crt;
function tecla : char; {esta funcion te debolvera un caractre
numerico del 1 al 9 solo una vez}
var
tec : char;
int : integer;
begin
repeat
tec := readkey;
if tec in [#49..#57] then
tecla := tec
else
begin {Esto es solo para que veas el proceso luego lo puedes
quitar desde el else al end y pones punto y coma en tec}
gotoxy(2,2);write('Pulse tecla numerica');
delay(400);
gotoxy(2,2);write(' ');
end;
until tec in [#49..#57];
end;

begin
clrscr;
write(tecla);
readln;
end.

{Si necesitas mas ayuda dímelo lo are con gusto}

Upa upa.. todavía no vimos funciones pero voy a estudiar bien el código haber que saco en limpio mil gracias por contestar =D.