Написать программу, которая проверяет, является ли введенная с клавиатуры строка целым числом

VAR
   s: String;
   i: LongInt;
BEGIN
   Read(s);

   for i := 1 to Length(s) do 
      if not((Ord(s[i]) > 47)and(Ord(s[i]) < 58)) then begin
      Write(s,' - не является целым число'); Exit; 
   end;

   Write(s,' - целое число'); 
END.