Определить,что больше ,сумма чётных или нечётных чисел.Паскаль.Напишите программу нахождения.

Пусть есть массив чисел "а", а его размер = n; chet - количество четных чисел, а nechet - количество нечетных
for i := 1 to n do
   if(a[i] mod 2=0)then chet:=chet + 1
      else nechet := nechet + 1;
if(chet>nechet)then writeln("chet")
   else writeln("nechet");