В случайном числе от 100 до 5000 подсчитать сумму четных цифр

Var a,s1,s2,i:integer;
begin
a:=random(4901)+100;
writeln('a = ',a);
s1:=0; s2:=0;
for i:=1 to 4 do
 begin
 if a mod 2 = 0
  then s1:=s1+a mod 10 else s2:=s2+a mod 10;
 a:=a div 10;
 end;
writeln('Сумма чётных цифр = ',s1,' Сумма нечётных цифр = ',s2);
end.

Пример:
a = 4683
Сумма чётных цифр = 18 Сумма нечётных цифр = 3