Дан одномерный массив размером 10 элементов на интервале [50;-50] определить какая сумма больше четных или нечетных элементов массива (9класс Паскаль)

Предыдущий
вопрос Следующий
вопрос

program SumOfEvenAndOddElements;

var
arr: array[1..10] of integer;
i, sumEven, sumOdd: integer;

begin
sumEven := 0;
sumOdd := 0;

// заполнение массива случайными числами на интервале [-50; 50]
Randomize;
for i := 1 to 10 do
begin
arr[i] := Random(101) - 50;
writeln('arr[', i, '] = ', arr[i]);

end;

writeln;
writeln('Sum of even elements: ', sumEven);
writeln('Sum of odd elements: ', sumOdd);

if sumEven > sumOdd then
writeln('Sum of even elements is greater')
else if sumOdd > sumEven then
writeln('Sum of odd elements is greater')
else
writeln('Sums of even and odd elements are equal');
end.