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

Пусть есть массив чисел "а", а его размер = 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") ;