Массив (n,n), отыскать кол-во положительных чисел и сумму отриц. [-10;10]

var
    i, x, sum, n : integer;    // объявляем переменные целочисленного типа.
    arr : array of integer;    // объявляем массив.
Begin
   writeln(Введите размерность массива:); // вывод строчки на экран.
   read(n); // считываем размерность массива.
   setlength(arr,n); // выделяем память под массив.
     for i:= 0 to (n-1) do // начало цикла.
         begin
             arr[i] := random(-10, 10); // наполняем элемент массива числом из спектра -10; 10.
             if (arr[i] gt; 0) then x:= x + 1; // считаем количество положительных элементов.
             if (arr[i] lt; 0) then sum := sum + arr[i]; // считаем сумму отрицательных частей.
         end;
   writeln(Количество положительных частей в массиве: , x); // вывод строчки на экран.
   writeln(Сумма отрицательных частей массива одинакова: , sum); // вывод строчки на экран.
End.