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

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