Дано натуральное число.Определить каких цифр в данном числе больше четных или...

Var n:longint;
    s:string;
    i, ch, neCh:integer;

begin
     readln(n);
     s:=intToStr(n);

     i:=1;
     while (i <= length(s)) do<br>     begin
          if (strToInt(s[i]) mod 2 = 1) then neCh:=neCh+1
          else ch:=ch+1;
   i:=i+1;
     end;

     if (ch > neCh) then writeln('Чётных чисел больше');
     if (ch < neCh) then writeln('Нечётных чисел больше');
     if (ch = neCh) then writeln('Чётных и нечётных чисел поровну');
end.