Дан массив r(m,n). заменить в массиве все положительные элементы на 0, а отрицательные на 1. посчитать количество нулей и единиц .

// pascalabc.net 3.2, сборка 1417 от 28.03.2017// внимание! если программа не работает, обновите версию! begin  var m: =readinteger('количество строк в массиве: ');   var n: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив [',m,',',n,'] ***');   var a: =matrrandom(m,n,-99,99);   a.println(4); writeln(4*a.colcount*'-');   writeln('*** результат ***');   a.transform(x-> x> =0? 0: 1); a.println(4);   var s: =a.elementsbyrow;   writeln('нулей- ',s.where(x-> x=0).count,', единиц- ',          s.where(x-> x=1).count)end. пример количество строк в массиве: 4 количество столбцов в массиве: 5 *** исходный массив [4,5] ***   -19  61 -47 -38 -26   -95 -35 -56  43  40     0 -52 -87 -85  93   -68  48 -55    5 -93 *** результат ***     1    0    1    1    1     1    1    1    0    0     0    1    1    1    0     1    0    1    0    1 нулей- 7, единиц- 13

vara,b,p,s: real; beginreadln(a); readln(b); p: =2*(a+b); s: =a*b; writeln('perimetr=', p); writeln('ploshad=', s); end.