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

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.