в матрице m найти произведение положительных элементов

//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)beginvar m:=ReadlnInteger();var a:=matrixRandom(m,m,-20,20);Println(a);var p:=1;for var i:=0 to m-1 do  for var j:=0 to m-1 do     if a[i,j]>0 then p:=p*a[i,j];println(p);end.