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?