Защита от ввода не числовой информации в параметр с клавиатуры - PascalABC.NET/GraphABC

Формулировка задачи:

В программе идет запрос периодов интегрирования с клавиатуры. Ввод я поставил в цикл repeat, исключения в until описываю. Такой вопрос, как правильно задать условие в until , чтобы кроме чисел ничего нельзя было ввести, а сами числа в диапазоне от -500 до 0. Пробовал с try....except, но как вернуться к запросу параметра заново - не получается сделать: сообщение выдается и переходит к следующей процедуре с неправильным параметром.

 repeat
          window.clear;
          writeln('Нижний предел интегрирования должен быть в пределах от -500 до 0');
          writeln('Введите нижний предел интегрирования: ');
          Myreadln;
          val(st,a1, err);  
 until (a1>=-500) and (a1<=0);

Если ввести латиницу, символы... пропускает. Не доходит до меня, как задать условие правильно. Помогите, прошу!

Решение задачи: «Защита от ввода не числовой информации в параметр с клавиатуры»

Листинг программы

until (err = 0) and (a1>=-500) and (a1<=0);

Объяснение кода листинга программы

Введен переменный err типа Boolean и инициализирован значением False. Эта переменная будет использоваться для проверки корректности введенных данных.
Введен переменный a1 типа Integer и инициализирован значением 0. Эта переменная будет использоваться для хранения числовых данных, введенных пользователем.
Запущен цикл while, который будет выполняться до тех пор, пока переменная err равна False и значение переменной a1 находится в диапазоне от -500 до 0.
Внутри цикла while пользователю предлагается ввести значение для переменной a1.
Если пользователь вводит нечисловое значение, то переменная err устанавливается в значение True.
Если пользователь вводит значение, которое находится за пределами диапазона от -500 до 0, то переменная err устанавливается в значение True.
Если пользователь вводит корректное числовое значение, которое находится в диапазоне от -500 до 0, то переменная err устанавливается в значение False.
После выхода из цикла while пользователю выводится сообщение об успешном вводе числовых данных.