Pascal/Turbo Pascal - Evitar salida de rango y error 201

Hola.
Al leer un shortint con un readln(variable); ¿Es posible controlar que si se introduce un numero que se salga del rango el programa lo detecte y poder controlar ese error?
Muchas gracias de antemano.

Sí.

var
Sht: shortint;
C: integer;
S: string;
begin

repeat
Write('Ingrese un shortint: ');
ReadLn(S);
val(S,Sht,C);
if (C <> 0) then
WriteLn('El dato ingresado es incorrecto.');
until C=0;

end.

Muchas gracias por contestar, ademas tan rapido.
Al final lo solucione de la siguiente manera:
Poniendo de ejemplo tu programa.

var
Sht: shortint;
C: integer;
S: string;
begin

repeat
Write('Ingrese un shortint: ');

ReadLn(S); {El problema estaba aqui, es un problema que solo pasa al compilar en
windows no en linux. si introduces 1000 p.ejemplo, el programa intenta asignarlo
a la variable S y se sale de rango}

val(S,Sht,C);
if (C <> 0) then
WriteLn('El dato ingresado es incorrecto.');
until C=0;

end.

La solucion para windows que tome es la siguiente;

repeat
Write('Ingrese un shortint: ');
{$R-} {desactivo la directiva que controla estos errores}
ReadLn(S); {En caso de que el numero introducido este fuera de rango no lo
leera y S conservara su valor anterior}
{$R+} {Vuelvo a activar la directiva}
val(S,Sht,C);
if (C <> 0) then
WriteLn('El dato ingresado es incorrecto.');
until C=0;

end.

Muchas gracias por tu respuesta Diego.

Disculpa, la "solución para windows" que has puesto no tiene sentido. S es un string, le puedes ingresar lo que se te ocurra y nunca dará un error 201 simplemente porque un string no tiene rango alguno.