написала программу, нужно разбить ее на процедуры

{Подсчитать количество четных натуральных чисел, принадлежащих интервалу
 [ a , b ), у которых количество четных цифр больше количества нечетных цифр.}
 
 var a,b,d,x,x1,y,j,k : integer; {a,b - интервал, х - число из заданного интервала,
                                  х1,у - переменные необходимые для определения четных-нечетных цифр,
                                  j - количество четных цифр, k - нечетных, d - надо
                                  найти}
 BEGIN
    writeln('Введите число а > ');
    readln(a);
    writeln('Введите число b > ');
    readln(b);
    
    if ((a<0) or (a>b)) then  
       writeln('Числа a и b должны быть натуральными, причем a<b!')
       else begin
             d:=0;
             for x:=a to b-1 do begin
                if x mod 2 = 0 then begin
                      j:=0;
                      k:=0;
                      x1:=x;
                      while x1>0 do begin
                            y:=x1 mod 10;
                            if (y mod 2 =0) then
                               j:=j+1
                               else k:=k+1;
                            x1:=x1 div 10;
                      end;
                      if j>k then
                         d:=d+1;
                end; 
             end;
             writeln('Количество четных натуральных чисел, принадлежащих интервалу');
             writeln('[',a,';',b,'), у которых количество четных цифр больше количества');
             writeln('нечетных, равно ', d, ' ');
    end;
END.

{Подсчитать количество четных натуральных чисел, принадлежащих интервалу
 [ a , b ), у которых количество четных цифр больше количества нечетных цифр.}
procedure Vvod(var a,b:integer);
begin
repeat
writeln('Введите число а > ');
readln(a);
writeln('Введите число b > ');
readln(b);
if ((a<0) or (a>b)) then
writeln('Числа a и b должны быть натуральными, причем a<b!')
until(a>0)and(b>a);
end;
function Chetn(x1:integer):boolean;
var j,k,y:byte;
begin
j:=0;
k:=0;
while x1>0 do
 begin
  y:=x1 mod 10;
  if (y mod 2 =0) then j:=j+1
  else k:=k+1;
  x1:=x1 div 10;
 end;
Chetn:=j>k;
end;
function Count(a,b:integer):integer;
var x,d:integer;
begin
d:=0;
for x:=a to b-1 do
if (x mod 2=0)and Chetn(x) then d:=d+1;
Count:=d;
end;
 var a,b:integer; {a,b - интервал}
BEGIN
Vvod(a,b);
write(Count(a,b));
END.