Как научить отличать цифру от буквы, Нужно чтобы прога ругалась Опции

[Борец с Паскалем]

Привет!

У меня вот проблема такая. Мне нужно научить программку отличать цифру от буквы. К примеру при попытке присвоить числовой переменной символьное значение программа вылетает потому как переменная не того типа.
Вот мне и нужно как нибудь реализовать эту возможность. Чтоб если пользователь там где надо ввести цифру, случайно или намеренно ввел букву программа не вываливалась а вежливо просила не шалить.

Помогите а очень надо

[Lapp]

Один из вариантов - вот так:

var
  a:integer;
begin
  repeat
    {$I-}ReadLn(a);{$I+}
  until IOResult=0
end.

Либо можешь написать свою функцию вместо ReadLn (или Read) со всеми необходимыми возможностями. Например, на основе ReadKey и KeyPressed.