Если строка- запись целого числа, то вывести 1; если вещественного , то вывести 2; если строку нельзя преобразовать в число, то вывести 0.

{Äàíà ñòðîêà. Åñëè îíà ïðåäñòàâëÿåò ñîáîé çàïèñü öåëîãî ÷èñëà, òî âûâåñòè 1;
åñëè âåùåñòâåííîãî (ñ äðîáíîé ÷àñòüþ), òî âûâåñòè 2;
åñëè ñòðîêó íåëüçÿ ïðåîáðàçîâàòü â ÷èñëî, òî âûâåñòè 0.}
    uses crt;
    var s:string;
        i,x:integer;
begin
  Write('s: ');
  ReadLn(s);
  for i:=1 to length(s) do
    if (s[i] = '.') then
    begin
        x:=2;
        break;
    end
    else if ((s[i]>'9') or (s[i]<'0')) then
    begin
        x:=0;
        break;
    end
    else x:=1;
    
  WriteLn(x);
  Readln;
end.

uses crt;
var i,k,c: integer; x: real;
    d: set of char; s: string;
begin
 i:=1;
 d:=['0'..'9'];
 clrscr;
 write('vvedite stroku: ');
 readln(s);
 val(s,x,c);
 if((c<>0) or (s[1]='.') or (s[1]='0')) then k:=2
 else
  begin
   while((i<=length(s)) and (s[i] in d)) do inc(i);
   if(i>=length(s)) then k:=0
   else k:=1;
  end;
 writeln('k=',k);
end.

uses crt;
var k,c: integer;
    x: real;
    s: string;
begin
 clrscr;
 write('vvedite stroku: ');
 readln(s);
 val(s,k,c);
 if c=0 then write('Это целое число')
 else
  begin
   val(s,x,c);
   if c=0 then write('Это вещественное число')
   else write('Это не число');
  end;
readln
end.