Массив (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.