Написать программу на определение каких цифр больше, чётных или нечётных — Pascal(Паскаль)

program е1;
const n=100;
var а:array[1..n] of integer; n,k,s :integer;
begin
writeln('Введите числа');
for 1 to n do read (a[i]);
for i:=1 to n do if a[i] mod 2=0 then k=k+1 else s:=s+1;
if k>s then writeln ('четных больше'); 
if k<s then writeln ('нечетных больше');
if k=s then wrireln ('количество четных и нечётных чисел одинаково')
end.

uses crt;
var n : integer;
    cnt_odd, cnt_even : integer;
 
begin
clrscr;
write ('Input number: ');
readln (n);
 
cnt_odd:=0;
cnt_even:=0;
 
while n<>0 do
  begin
    if (n mod 10) mod 2 = 0 then inc (cnt_even)
      else inc (cnt_odd);
    n:=n div 10;
  end;
 
if cnt_even>cnt_odd then writeln ('even>odd')
  else if cnt_even<cnt_odd then writeln ('odd>even')
  else writeln ('even=odd');
 
readkey;
end.