Pascal/Turbo Pascal - Validar datos

Hol amigos, Tengo un problema a la hora de validar unos datos. Este es el código

REPEAT
write('Elija una opcion: ');
readln(opcion);
IF((opcion > 7 ) OR (opcion < 1)) THEN writeln('Opcion Incorrecta.');
UNTIL ((opcion <= 7 ) AND (opcion >=1));

opcion es de tipo integer.

Mi duda viene cuando mi usuario torpe y sin ideas ^_^ introduzca en lugar de un número, letras o frases por error. Y se cuelga el programa. No se como solventarlo.

Gracias.

En vez de tomar la opción en una variable integer, hazlo en un tipo char.

hola, es asi...

writeln('opcion unooo');
writeln('opcione dosss');
repeat
{$i-}
num:=ord(readkey)-48;
{$i+}
until((IOresult=0)and((num=1)or(num=2)));

donde NUM es de tipo char.

saludos