Вычислить число и сумму отрицательных элементов в матрице

program matr;
const
  maxelem = 10;
var
  a,b: array [1..maxelem,1..maxelem] of real; { Переменные для хранения массивов}
  i,j: integer; { Вспомогательные переменные для организации циклов}
  count: integer; { Переменная для хранения значения количества элементов}
  sum: real; { Переменная для хранения значения суммы элементов}
begin
  writeln('Исходный массив А:');
  for i:= 1 to maxelem do
    begin
      for j:= 1 to maxelem do
        begin
          { Заполнение массива значениями вычисленными по формуле}
          a[i,j]:= (-15 + 3*i)/(3 - 4*j);
          write(a[i,j]:6:2);
        end;
      writeln;
    end;
  writeln('Новый массив А:');
  for i:= 1 to maxelem do
    begin
      for j:= 1 to maxelem do
        begin
          if a[i,j] > 0 then  { Условие для поиска положительных элементов}
            a[i,j]:= 0;       { Найденные элементы заменяются нулями}
          write(a[i,j]:6:2);
        end;
      writeln;
    end;
  b:= a; {массив A записывается в массив B}
  count:= 0;       { Переменные устанавливаются в начальное состояние}
  sum:= 0;
  for i:= 1 to maxelem do
    for j:= 1 to maxelem do
      if b[i,j] < 0 then       { Условие для поиска положительных элементов}
        begin
          inc(count);          { Найденные элементы подсчитываются}
          sum:= sum + b[i,j];  { Вычисляется сумма }
        end;
  writeln('Количество отрицательных элементов: ',count);
  writeln('Сумма отрицательных элементов: ',sum:0:4);
  readln;
end.