Обработка исключительных ситуаций - Free Pascal

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

Когда вместо числа вводишь строку паскаль выдаёт Ошибку 106: Invalid Numeric Format и прога вылетает. Как сделать так, чтобы прога не вылетала, а просто выдала текст с предложением ввести значение заново?

Решение задачи: «Обработка исключительных ситуаций»

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

repeat
write('Введите целое число n=');
readln(n);
if not Proverka(n) then writeln('Это не число!');
until Proverka;

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

repeat - начало цикла
write('Введите целое число n='); - вывод сообщения с просьбой ввести целое число
readln(n); - считывание введенного значения в переменную n
if not Proverka(n) then writeln('Это не число!'); - проверка значения переменной n на число с помощью функции Proverka. Если значение не является числом, выводится сообщение Это не число!
until Proverka; - продолжение цикла до тех пор, пока значение переменной n не будет числом