Estoy usando Dev-Pas 1.9.2 y estoy tratando de asegurarme de que el programa no se bloquee cuando se ingresa un símbolo o un valor de letra.

He buscado en Google y en Google y no puedo encontrar ningún resoruce sobre cómo lograr esto.

Cualquier ayuda es muy apreciada. ¡Gracias

Aquí está el código que estoy tratando de administrar la entrada:

 Function GetMenuChoice : Integer;
  Var
    OptionChosen : Integer;
  Begin
    Write('Please enter your choice: ');
    Readln(OptionChosen);
    If (OptionChosen < 1) Or ((OptionChosen > 4) And (OptionChosen <> 9))
      Then
        Begin
          Writeln;
          Writeln('That was not one of the allowed options.  Please try again: ');
        End;
    GetMenuChoice := OptionChosen;
  End;