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

Var n:longint;

s:string;

i, ch, neCh:integer;

begin

readln (n) ;

s:=intToStr (n) ;

i:=1;

while (i < = length (s)) do

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.