Матрицу D(8.9) заполнить целыми случайными числами в диапазоне (-100;100). Вывести номера столбцов, в которых количество отрицательных элементов больше чем количество положительных. Вывести исходную матрицу D(8.9)

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017 // Внимание! Если программа не работает, обновите версию! begin   var m:=8; var n:=9;   Writeln('*** Исходная матрица D[',m,',',n,'] ***');   var d:=MatrRandom(m,n,-100,100);   d.Println(5); Writeln(5*n*'-');   Writeln('Столбцы, в которых отрицательных элементов больше положительных');   for var i:=0 to n-1 do     if (d.Col(i).Where(x->x<0).Count)>(d.Col(i).Where(x->x>0).Count)     then Print(i+1) end. Пример *** Исходная матрица D[8,9] ***    10  -41   26    3   98   64   -9  -11  -91    -9  -43   44   -1   59  -74  -86  -61   -6    39   72  -67   30  -65 -100  -51  -98  -29    67  -43  -67   95   15  -30   11   14   51   -66  -64   -7  -81   15   56  -20   46  -58    12   19  -33  -92  -58   69   23  -43  -35    36   80  -76   25  -47   95   -7   24  -69    77   -4   42  -26   88  -56  -25   81  -98 --------------------------------------------- Столбцы, в которых отрицательных элементов больше положительных 2 3 7 9