вляется ли этот текст десятичной записью целого числа

Задан текст. Выяснить, является ли этот текст десятичной записью целого числа.

что является по сути десятичной записью числа?
это набор символов [0-9] и всё....

var
   s: string;
   i, j: integer;
   f: boolean;
   
begin
   s:='122345.33'; {проверьте еще '11133'}
   f:=true;
   for i:=1 to length(s) do begin
      if (ord(s[i]) < ord('0')) or (ord(s[i]) > ord('9')) then begin
         f:=false;
         break;
      end;
   end;
   
   write('is ', s, ' integer? ');
   if f then writeln('yes') else writeln('no');
   
end.

рабочие исходники можно скачать тут