Определить является ли заданная строка шестнадцатеричной записью целого числа — Pascal(Паскаль)

uses crt;
const s16=['0'..'9','A'..'F','a'..'f'];
var s:string;
    f:boolean;
    i:byte;
begin
clrscr;
writeln('Введите целое число в СС 16:');
readln(s);
f:=true;
i:=1;
while(i<=length(s))and f do
 begin
  if not(s[i] in s16) then f:=false
  else i:=i+1;
 end;
if f then write('Это целое число в СС 16')
else write('Это не целое число в СС 16');
readln
end.