Дана строка. Если она представляет собой запись целого числа, то вывести 1

Uses
 CRT;
Var
 s:string;
 n,l,kol,kol2:integer;
 i:real;
begin
readln(s);
kol:=0;
kol2:=0;
for l:=1 to length(s) do
begin
 if s[l] in ['1'..'9','.'] then
 begin
  inc(kol);
 end
 else
  if not (s[l] in ['1'..'9']) then
 begin
  inc(kol2);
 end
 end;
 if (kol<>0) and (kol2=0) then
 begin
  val(s,i,n);
   if frac(i)=0 then
    writeln('1')
     else
      if frac(i)<>0 then
       writeln('2');
 end
  else
   writeln('0');
readkey;
end.

var s:string;
     r:real;
     t,c:integer;
begin
write('s=');
readln(s);
val(s,t,c);
if c=0 then write('Это целое число')
else
 begin
  val(s,r,c);
  if c=0 then write('Это вещественное число') 
  else write('Это не число');
 end;
readln
end.

var s:string;
    r:real;
    c:integer;
    i,k:byte;
begin
write('s=');
readln(s);
k:=0;
i:=1;
while(i<=length(s))and(k=0)do
if not(s[i]in ['0'..'9']) then k:=1
else i:=i+1;
if k=0 then write('Это целое число')
else
 begin
  val(s,r,c);
  if c=0 then write('Это вещественное  число')
  else write('Это не число');
 end;
readln
end.

Uses
 CRT;
Var
 s:string;
 n,l,kol,kol2,kol3:integer;
 i:real;
begin
readln(s);
kol:=0;
kol2:=0;
kol3:=0;
for l:=1 to length(s) do
begin
 if s[l] in ['0'..'9'] then
 begin
  inc(kol);
 end
 else
  if not (s[l] in ['0'..'9','.']) then
 begin
  inc(kol2);
 end
 else
  if s[l] in ['.'] then
 begin
  inc(kol3);
 end
 end;
 if (kol<>0) and (kol3=0) and (kol2=0) then writeln('1')
     else
     if (kol2<>0) or (kol3>1) then writeln('0')
  else
  if (kol3=1)then writeln('2');
readkey;
end.

uses crt;
var s:string;
    a:longint;
    r:real;
    c:integer;
begin
clrscr;
writeln('Введите строку для определения число ли это и какое:');
readln(s);
val(s,a,c);
if c=0 then write(1)
else
 begin
  val(s,r,c);
  if c=0 then write(2)
  else write(0);
 end;
readln
end.