Определить каких цифр больше, четных или нечетных, в трехзначном числе (через while)

program z;
uses crt;
var a,b,b1:integer; k,k1:byte;
begin
     clrscr;
     write('Ââåäèòå òðåõçíà÷íîå ÷èñëî: ');
     readln(a);
     b:=a;
     while b<>0 do
           begin
                b1:=b mod 10;
                if odd(b1)=false
                   then
                       k:=k+1
                else
                    k1:=k1+1;
                b1:=b div 10;
                b:=b1;
           end;
     if k>k1
        then
            write('Êîë-âî ÷åòíûõ öèôð áîëüøå, ÷åì íå÷åòíûõ â ÷èñëå ',a)
     else if k<k1
          then
              write('Êîë-âî íå÷åòíûõ áîëüøå, ÷åì ÷åòíûõ â ÷èñëå ',a);
     readln;
end.

program z;
uses crt;
var a,b,b1:integer; k,k1:byte;
begin
     clrscr;
     write('Введите трехзначное число: ');
     readln(a);
     b:=a;
     while b<>0 do
           begin
                b1:=b mod 10;
                if (b1 mod 2 = 0)
                   then
                       k:=k+1
                else
                    k1:=k1+1;
                b1:=b div 10;
                b:=b1;
           end;
     if k>k1
        then
            write('Кол-во четных цифр больше, чем нечетных в числе ',a)
     else if k<k1
          then
              write('Кол-во нечетных больше, чем четных в числе ',a);
end.

program z;
var a,b,b1,k,k1:integer;
begin
     write('Введите трехзначное число: ');
     readln(a);
     b:=a;
     while b<>0 do
           begin
                b1:=b mod 10;
                if b1 mod 2=0
                   then
                       k:=k+1
                else
                    k1:=k1+1;
                b1:=b div 10;
                b:=b1;
           end;
     if k>k1
        then
            write('Кол-во четных цифр больше, чем нечетных в числе ',a)
     else if k<k1
          then
              write('Кол-во нечетных больше, чем четных в числе ',a);
end.