Как проверить тип данных, делфи?

Question

посоветуйте очень-очень начинающему программисту) ) нужно, чтоб выскакивало сообщение об ошибке, если пользователь вводит в переменную буквы вместо цифр, или буквы вместе с цифрами.. . вот код, что уже есть. куда и что нужно вставить, чтоб работало как надо?

uses
SysUtils;

var

a:real;
b:real;
c:real;
x:boolean;
y:real;
z:real;
k:real;
u:real;

begin
writeln ('Input a');
readln (a);
if (a>2) then
c:=a-b*7;
if (a=2) then
c:=a*b+66;
if (a<2) then
c:=(a+10)/2;
writeln ('Input b');
readln (b);
if (b>4) then
u:=(c+50)*3;
if (b=4) then
u:=c-a*b+100;
if (b<4) then
u:=(c+8+a)/(a+b*2);
writeln ('c=a-b*7 if a>2, c=a*b+66 if a=2 and c=(a+10)/2 if a<2');
writeln ('c=',c:0:1);
writeln ('X is true if c<450');
x:=c<450;
writeln ('x=',x);
writeln ('u=(c+50)*3 if b>4, u=c-a*b+100 if b=4 and u=(c+8+a)/(a+b*2) if b<4');
writeln ('u=',u:0:1);
writeln ('Input z');
readln (z);
writeln ('Input y');
readln (y);
writeln ('K=y*z');
k:=y*z;
writeln ('k=',k:0:1);
writeln X is true if k=77');
x:=k=77;
writeln ('x=',x);
writeln ('End. Press Enter to exit');
readln;

end.

Екатерина · Accepted Answer

Обычный (generic) тип данных проверить нельзя - компилятор и так знает, что там какого типа. Можно проверить только принадлежность указателя какому-либо классу - оператором is. Еще существует веселый тип variant, для которого можно-таки проверить, является ли его содержимое числом и каким именно - кури мануал по модулю Variants. 
 
В твоей программке при неправильном вводе пользователь получит-таки сообщение об ошибке. Проблема только в том, что прервется выполнение программы. Поэтому напиши какую-то такую функцию: 
 
function GetReal:real; 
var b:boolean; 
begin 
repeat 
try 
b:=true; 
readln(Result); 
except 
on e:Exception do begin 
b:=false; 
writeln('Wrong input: '+e.Message); 
end; 
end; 
until b; 
end; 
 
и считывай переменные с ее помощью. Не забываем uses SysUtils, ясен пень.

Алексей Молчанов · Answer

чё это