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

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