Manejo de Errores con Strings en Pascal

[AeroCross]

Estoy estudiando Sistemas y estoy haciendo una práctica con Pascal. Tengo definida una variable integer, y quiero hacer un manejo de errores, que cada vez que se introduzca un caracter no numerico en una opción, no me de un error de tiempo de ejecución. Este es mi código:

Código:

MainMenu:  Writeln('Seleccione una opción:');
           Writeln('1. iniciar');
           Writeln('2. Instrucciones');
           Writeln('3. Créditos');
           Writeln('4. Salir del Programa');
           Writeln;
           Write('Seleccione su opción: ');
Choice:    Readln(Option);

           if
           Option = 0
           then
               begin
                    Write('Selcción inválida. Selecione su opción: ');
                    goto Choice;
               end;

           if
           Option > 4
           then
               begin
                    Write('Selección inválida. Selecione su opción: ');
                    goto Choice;
               end;

           if
           Option = 1
           then
           goto Option1;

           if
           Option = 2
           then
           goto Option2;

           if
           Option = 3
           then
           goto Option3;

           if
           Option = 4
           then
           goto Finish;

Si en Readln meto un caracter no numerico, me da un error de tiempo de ejecución. ¿Como puedo solucionar esto?

[dogduck]

REPEAT
READLN(Option);
UNTIL Option IN ['0'..'4'];


salu2

[_Lucifer_]

Si option es de tipo integer no creo que eso le sirva , declara option del tipo string o de tipo char. Si es de tipo string usa la función val para obtener el valor numérico, esta función te devuelve un código de error en caso de no poder convertir la variable.

Si usas la variable de tipo char solo debes comparar como te indica dogduck, en ese caso te recomiendo usar una función como readkey.

Saludos