ПРОГРАММИРОВАНИЕ! ХЕЛП!

// pascalabc.net 3.2, сборка 1363 от 17.12.2016 // внимание! если программа не работает, обновите версию! begin   var m: =readinteger('количество строк в матрице: ');   var n: =readinteger('количество столбцов в матрице: ');   writeln('*** исходная матрица [',m,'x',n,'] ***');   var a: =matrrandom(m,n,-50,50);   a.println(4); writeln(4*a.colcount*'-');   var q: =a.cols.select(x-> x.first< x.last).toarray;   var k: =q.where(r-> r).count;   writeln('*** результирующая матрица [',m,'x',k,'] ***');   var b: =matrfill(m,k,0);   var l: =0;   for var j: =0 to n-1 do       if q[j] then begin           for var i: =0 to m-1 do b[i,l]: =a[i,j];           l+=1           end;   b.println(4) end. пример количество строк в матрице: 5 количество столбцов в матрице: 8 *** исходная матрица [5x8] ***   15 -35 -11 -18  49 -32  31 -47   -21 -46    7 -48    3  24 -48    5   28 -46  36  -9  17 -32 -44 -10   -16    7 -14  40  13  30  50 -28   -8  35 -49  47 -31  30  18  20 *** результирующая матрица [5x4] ***   -35 -18 -32 -47   -46 -48  24    5   -46  -9 -32 -10     7  40  30 -28   35  47  30  20