Срочноооо! Паскаль
В двумерном массиве b найти кол во отрицательных и сумму положительных. в конце вывести массив в виде матрицы.

const  m=5;  n=8;var  b:array[1..m,1..n] of integer;  i,j,ko,sp:integer;begin  Randomize;  ko:=0; sp:=0;  for i:=1 to m do    for j:=1 to n do begin      b[i,j]:=Random(51)-20;      if b[i,j]>0 then sP:=sp+b[i,j]      else        if b[i,j]<0 then Inc(ko)      end;  Writeln('Сумма положительных элементов равна ',sp);  Writeln('Количество отрицательных элементов равно ',ko);  Writeln('Исходный массив');  for i:=1 to m do begin    for j:=1 to n do Write(b[i,j]:4);    Writeln  endend.Пример работы программыСумма положительных элементов равна 382Количество отрицательных элементов равно 13Исходный массив  -6  13  10   2 -14  14  28  28   5   7  26  -8  26  24   7  27  15  -9 -13  28   4  12   9 -12  -2  -9  20  10 -16   8 -10   2  30 -10  -9 -10   2   2   0  23