Дан одномерный массив размером 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 gt; sum1) then writeln (Cумма четных чисел больше суммы нечетных);
   if (sum lt; sum1) then writeln (Cумма нечетных чисел больше суммы четных);
   if (sum = sum1) then writeln (Cумма четных и нечетных чисел равны);
end.