Pascal/Turbo Pascal - control de errores para strings

Buenos dias;
Necesito introducir control de errores en un porgrama en el cual tengo q introducir un entero y almacenarlo en un string.
tienes q ser con un repeat o un while pero no se como hacer la condicion para que solo acepte un numero,y no letras ni simbolos.
Muchas gracias

X FAVOR DARME ALGUNA IDEA QUE LO NECESITO CON URGENCIA
MUCHAS GRACAIS

...aver si es esto lo que necesitas
________________________________________________________

var cadena_numero:string[9]; { maximo 9 digitos 999.999.999 }
valor_numero:longint;
resultado:word;

begin
writeln('introduce un numero con o sin letras ');
readln(cadena_numero);

val(cadena_numero,valor_numero,resultado );
if (resultado<>0) then
begin
writeln('Error en digito ',resultado);
end else
begin
writeln('numero:= ',valor_numero);

end;

readln;
end.