Даны два числа а и в. подсчитайте количество натуральных чисел на отрезке от а до в, сумма цифр которых четна. нужна программа в паскале

Var b, a, d1, d2, i, j: integer;
    c: string;
begin
     readln(a, b);
          for i := a to b do
     begin
          d1 := 0;
          c := inttostr(i);
          for j := 1 to length(c) do
              d1 := d1 + strtoint(c[j]);
          if (d1 mod 2 = 0) then inc(d2);
     end;

     writeln(d2);
end.