Определить является ли текст шестнадцатеричной записью числа, кратного 5

var
b:set of char;
a:string;
c,sum,i,f:integer;
begin
 b:=['0'..'9','A'..'F'];
 readln (a);
 for i:=1 to length(a) do
  if  not(a[i] in b) then f:=1;
 if f=0 then begin
 for i:=1 to length(a) do
   begin
   c:= ord(a[i]);
   if c>57 then c:=c-55 else c:=c-48;
   sum:=sum+c;
   end;
if sum mod 5=0 then writeln('yes')else f:=1;
end;
if f=1 then writeln('no');
readln;
end.

var
b:set of char;
a:string;
c,sum,i,f:integer;
begin
 b:=['0'..'9','A'..'F']; {задали множество 16-ричных символов}
 readln (a);          {ввели строку}
 for i:=1 to length(a) do
  if  not(a[i] in b) then f:=1;  {если в ней попадется не 16-ричный символ флаг=1}
 if f=0 then begin                 {если все символы 16-чные, определяем сумму цифр}
 for i:=1 to length(a) do
   begin                            
   c:= ord(a[i]); {для этого берём коды всех символов}            
   if c>57 then c:=c-55 else c:=c-48; {переводим их в соответствующие цифры} 
   sum:=sum+c;   {и считаем сумму}
   end;
if sum mod 5=0 then writeln('yes')else f:=1; {если сумма делится на 5 печатаем "да"}
end;
if f=1 then writeln('no');  
               {флаг=1 означает, что это или не 16-ричное число, или то, что не делится на 5}
readln;
end.