Записи и строки(2) Опции

[BAEVIK]

Записи и строки
Дана строка. Если она представляет собой запись целого числа, то вывести 1; если вещественного (с дробной частью), то вывести 2; если строку нельзя преобразовать в число, то вывести 0.

[Lodar']

Ну вот что то типа этого:

Program Str;
var
   st1:string;
   err:integer;
   int:longint;
   rel:real;
begin
Writeln ('Vvedite stroky');
Readln (st1);
 Val (st1,int,err);
   if err <> 0 then
    begin
     Val (st1,rel,err);
     if err <> 0 then Writeln ('0')
     else Writeln ('2');
    end
   else Writeln ('1');
readln;
end.