На экран вводится два пятизначных числа. найти среднее арифметическое всех четных цифр в наименьшем из чисел

Var
  a, b, n: integer;
  sr: real;
 
begin
  sr := 0;
  n := 0;
  read(a, b);
  if(a > b) then a := b;
  while a > 0 do
   begin
    if((a mod 10) mod 2 = 0) then begin
      sr := sr + a mod 10;
      n := n + 1;
    end;
    a := a div 10;
  end;
  write(sr / n);
end.