Pascal/Turbo Pascal - Variable numerica

Hola compañeros.
Quisiera saber como definir una variable numerica de manera que no se le pueda introducir datos tipo string
He definido variables tipo integer , real, byte,word,etc, pero en tiempo de ejecucion el usuario puede escribir datos de cadena de caracteres. Por supuesto que esto me genera un error.
Tambien quisiera limitar la variable (String o integer) a un numero definido de caracteres, es decir, que solamente acepte 2, 3, 4 o n cifras o caracteres
Como puedo evitar esto???
Si alguien me puede ayudar se lo agradeceria mucho!!!!

Esto te puede servir:

{Lee un número Entero Largo}
{Msg= Mensaje del prompt }
{Min= Rango mínimo }
{Max= Rango máximo }
Function GetLong(Msg :String; Min, Max :LongInt) :LongInt;
Var
NumStr :String;
Err :Integer;
Num :LongInt;

Begin
Repeat
Write(Msg, ': ');
ReadLn(NumStr);
Val(NumStr, Num, Err);
If (Err>0) then
WriteLn('¡Ingrese un número entero!'#7)
Else
If (Num<Min) or (Num>Max) then
Begin
WriteLn('¡Ingrese un número entre ', Min:1, ' y ', Max:1, '!'#7);
Err := 1;
End; {If}
Until (Err>0);
GetLong := Num;
End; {GetLong}

Espero te sea de utilidad. Saludos ;-)