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

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

Привет!

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

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

[Гость]

Lapp вариант с IOresult просто шикарен!

Код

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

А как сдесь привинтить человеческий голос. Чтоб если ошибка то выходило сообщение что нужно ввести правильно
Я вчера весь день бился но так и не смог IF привинтить. Подсобите люди добрые

[Lapp]

вариант с IOresult просто шикарен!

Рад, что ты все-таки разобрался.

Вот вариант с выводом всяких слов:

var
  a,ior:integer;
begin
  Write('Веедите целое число: ');
  repeat
    {$I-}ReadLn(a);{$I+}
    ior:=IOResult;
    if ior<>0 then Write('Ошибка в записи числа. Попробуйте еще раз: ')
  until ior=0;
  WriteLn('Спасибо!')
end.

Обрати внимание на переприсвоение номера ошибки. Два раза вызывать IOResult на одну операцию нельзя, значение сбрасывается при вызове (это функция, а не переменная).