Написать программу которая проверяет является ли введенная с клавиатуры строка шестнадцатеричным числом — Pascal(Паскаль)

var s:string;
     f:boolean;
     i:byte;
begin
//ввод строки
f:=true;
i:=1;
while(i<=length(s)) and f do
if not(s[i] in ['0'..'9','A'..'F','a'..'f']) then f:=false
else i:=i+1;
if f then write('Yes!')
else write('No!');
end.