С клавиатуры ввели число. Определить, каких цифр в нем больше: четных или нечетных.
Помогите!

var

 n, i, c1, c2: Integer;

begin

 Write ('Введите число: ');

 ReadLn (n);

 c1 := 0;

 c2 := 0;

 while n > 0 do begin

   i := n mod 10;

   n := n div 10;

   if i mod 2 = 0 then

     c2 := c2 + 1

   else

     c1 := c1 + 1;

 end;

 if c2 > c1 then

   Writeln ('Четных чисел больше')

 else if c1 > c2 then

   Writeln ('Нечетных чисел больше')

 else

   Writeln ('Количество четных и нечетных равно');

end.