задан двухмерный массив целых чисел А размером N на M состоящих из нулей и единиц. сформировать одномерный массив В[K]. состоящих из единиц и подсчитать их количество

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017// Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('Количество строк в массиве:');  var m:=ReadInteger('Количество столбцов в массиве:');  Writeln('*** Исходный массив [',n,',',m,'] ***');  var a:=MatrRandom(n,m,0,1);   a.Println(2); Writeln(2*a.ColCount*'-');  var b:=a.ElementsByRow.Where(x->x=1).ToArray;  var k:=b.Count; b.Println;  Writeln('k=',k)end.ПримерКоличество строк в массиве: 5Количество столбцов в массиве: 12*** Исходный массив [5,12] *** 0 0 1 1 1 1 1 1 0 0 1 0 0 1 1 1 0 0 1 1 1 0 1 0 1 0 0 1 0 1 0 0 0 0 0 0 1 0 0 0 0 1 0 1 0 0 1 0 1 1 1 1 0 1 1 0 1 0 0 1------------------------1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1k=29