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

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