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

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 gt; 0) then sum1 := sum1 + arr[i]; // считаем положительные элементы.
            if (i lt; 0) then sum2 := sum2 + arr[i]; // считаем отрицательные элементы.
          end;
    if (sum1 gt; abs(sum2)) then
          writeln(Сумма положительных чисел массива больше суммы отрицательных чисел по                            модулю.); 
    if (абс(sum2) gt; sum1) then
          writeln(Сумма отрицательных чисел массива по модулю больше суммы положительных                          чисел.);
    if (абс(sum2) = sum1) then
          writeln(Сумма отрицательных чисел массива по модулю одинакова сумме положительных                            чисел.);
End.