Написать задачу в Паскале.Определить что больше по модулю:сумма отрицательных чисел массива или отрицательных.

var      i, sum1, sum2, n : integer;      // объявляем переменные целочисленного типа.      arr : array of integer;              // объявляем массив.Begin     writeln(\'Введите размерность массива:\'); // вывод строки на экран.    read(n);                                                 // считываем размерность массива.    setlength(arr,n);                                    // выделяем память под массив.        for i:= 0 to (n-1) do                         // начало цикла.          begin            arr[i] := random(-100, 100);            // заполняем элемент массива числом из диапазона.            if (i > 0) then sum1 := sum1 + arr[i]; // считаем положительные элементы.            if (i < 0) then sum2 := sum2 + arr[i]; // считаем отрицательные элементы.          end;    if (sum1 > abs(sum2)) then          writeln(\'Сумма положительных чисел массива больше суммы отрицательных чисел по                            модулю.\');     if (abs(sum2) > sum1) then          writeln(\'Сумма отрицательных чисел массива по модулю больше суммы положительных                          чисел.\');    if (abs(sum2) = sum1) then          writeln(\'Сумма отрицательных чисел массива по модулю равна сумме положительных                            чисел.\');End.