Дан двумерный массив 10х10, содержащий числа в интервале от -10 до 10. Вычислить отдельно сумму положительных и сумму

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016begin  var a:=MatrixRandom(10,10,-10,10);  var sp:=0; var sn:=0;  for var i:=0 to 9 do begin    for var j:=0 to 9 do begin      Write(a[i,j]:4);      if a[i,j]>0 then Inc(sp)      else        if a[i,j]<0 then Inc(sn)      end;    Writeln    end;  Writeln(\'Положительных \',sp,\', отрицательных \',sn)end.