Определить,является ли введённая строка числом

const Digit=['0'..'9'];
var s:string;
i:integer;
chislo:boolean;
begin
readln(s);
chislo:=true;
for I :=1 to Length(s) do
 if not(s[i] in Digit)and(s[i]<>'.')then
  begin
    chislo:=false;
    break;
  end;
if chislo then
 begin
  writeln('Chislo');
  if pos('.',s)>0 then
   writeln('float')
   else   writeln('integer');
 end
else writeln('stroka');
 
readln;
end.

uses crt;
var s:string;
    n,c:integer;
    r:real;
begin
writeln('Введите строку');
read(s);
val(s,n,c);
if c=0 then write('Это целое число')
else
 begin
  val(s,r,c);
  if c=0 then write('Это вещественное число')
 end;
if c<>0 then write('Это не число')
end.

const dig=['0'..'9'];
var s:string;
i,k:integer;
ch:boolean;
begin
k:=0;
Readln(s);
ch:=True;
for i:=1 to Length(s) do
 begin
  if s[i]='.' then inc(k);
  if not((s[i] in dig) or (s[i] in ['.','-'])) or (k>1) or ((s[i]='-') and (i<>1)) then
   begin
   ch:=False;
   Break;
   end;
  end;
if ch then
 begin
 Writeln('Строка является числом.');
  if Pos('.',s)>0 then
   Writeln('Число вещественнное (дробное).')
   else Writeln('Число целое.');
 end
else Writeln('Строка не является числом!');
Readln;
end.