Если в массиве сумма положительных элементов четная, найти кол-во четных элементов, иначе-количество нечетных!! (паскаль)

И в чем вопрос?
sum:=0; count:=0;
for k:=1 to N do sum:=sum+mass[k];
if odd(sum) then
for k:=1 to N do if odd(mass[k]) then inc(count);
else
for k:=1 to N do if not odd(mass[k]) then inc(count);
writeln(count);