Паскаль в двумерном массиве 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   end end. пример работы программы сумма положительных элементов равна 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

Обміном, вставкою,виробом, злиттям)