Подсчитать количество натуральных чисел, принадлежащих интервалу [a,b), у которых количество четных цифр больше количества нечетных цифр — Pascal(Паскаль)

var a,b,i,k:integer;
function digits(n:integer):boolean;
var f,s:integer;
begin
f:=0;s:=0;
while n>0 do
begin
     if odd(n mod 10) then inc(f) else inc(s);
     n:=n div 10;
end;
if s>f then dig:=true else dig:=false;
end;
begin
writeln('Введите a,b');
readln(a,b);
k:=0
for i:=a to b do
  if dig(i) then
  begin 
     writeln(i);
     inc(k);
  end;
writeln('Количество=',k);
end.