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

program zz1;

var s:string; / / задаем переменную строкового типа

i, p:integer; / / задаем переменную целого типа

begin

write (' введите строку ');

read (s); / / вводим с клавиатуры строку

for i:=1 to length (s) do / / организуем цикл, в котором переберем все символы от первого до последнего

if (s[i] '1') and (s[i] '2') and (s[i] '3') and (s[i] '4') and (s[i] '5') and

(s[i] '6') and (s[i] '7') and (s[i] '8') and (s[i] '9') and (s[i] '0') then p:=1;

if p = 0 then write (' введенная строка является целым числом ')

else write (' введенная строка не является целым числом ');

end.