Массив (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] > 0) then x: = x + 1; / / считаем количество положительных элементов.

if (arr[i] < 0) then sum : = sum + arr[i]; / / считаем сумму отрицательных элементов.

end;

writeln ('Количество положительных элементов в массиве: ', x); / / вывод строки на экран.

writeln ('Сумма отрицательных элементов массива равна: ', sum); / / вывод строки на экран.

End.