массив. задачки дан массив А( N,M) отыскать сумму отрицательных частей

// PascalABC.NET 3.2, сборка 1514 от 11.08.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (n,m):=(8,8);
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var s:=a.Rows.SelectMany(x-gt;x).Where(x-gt;xlt;0).Sum;
  Writeln('Сумма отрицательных частей ',s)
end.

Пример
*** Начальный массив ***
  51  57  75  78 -45   5 -36  37
  25  44  25  81 -23  77 -86 -87
  11   3  -6 -87 -95 -70 -54 -39
 -99  98  58  94  22  11  32  40
  43  46  44  51 -31   5  92  46
 -87  67   5   7 -80  96 -82  50
 -77  41  64  21 -94 -92 -31  21
  12  14  78 -43  47 -30 -84 -85
--------------------------------
Сумма отрицательных элементов -1543

includelt;iostreamgt;using namespace std;
int main() int a[8][8]; for(int i=0;ilt;8;i++) for(int j=0;jlt;8;j++) cingt;gt;a[i][j]; int sum=0; for(int i=0;ilt;8;i++) for(int j=0;jlt;8;j++) if(a[i][j]lt;0) sum+=a[i][j]; coutlt;lt;"Sum = "lt;lt;sumlt;lt;endl;