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

var   arr : array[0..10] of integer;// объявляем массив.   i, sum, sum1 :integer; // объявляем переменную целочисленного типа. begin   for i := 1 to 10 do // начало цикла.    begin      arr[i] := random(50,-50); // заполняем элемент массива случайным числом от -50 до 50.       if (arr[i] mod 2 = 0) then // если элемент четный.           sum := sum + arr[i] //считаем сумму четных элементов.       else // если элемент нечетный.           sum1 := sum1 + arr[i]; //считаем сумму нечетных элементов.        end;    if (sum > sum1) then writeln (\'Cумма четных чисел больше суммы нечетных\');   if (sum < sum1) then writeln (\'Cумма нечетных чисел больше суммы четных\');   if (sum = sum1) then writeln (\'Cумма четных и нечетных чисел равны\'); end.