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

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.