проверка типа переменной Опции

[BRS]

Вобщем то только начинаю общаться с паскалем и никак не могу найти решение подобной простой задачи... Опишу на примере:

Пользователь вводит что либо, записываем в А (какого типа должо быть А?)
Далее если пользователь ввел цело число - B := A (B - integer)...

Как это сделать?

[GoodWind]

А не проще ли

Код

var str:string;
     value,code:integer;
begin
repeat
readln(str);
val (str,value,code);
until code=0;
end.

Поясню - val "возвращает" в code типа errorlevel`а и если он не 0 то в строке есть НЕ цифры.

зы: программа скорее всего работать не будет :D , но идея, я думаю, ясна