Необходимо написать программу на Паскале: В матрице размера MN положительные элементы

PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018
Внимание! Если программа не работает, обновите версию!

procedure MatrixCreate(m,n:integer; var A:array[,] of integer);
begin
  A:=MatrRandom(m,n,-50,50);
end;

procedure MatrixOutput(A:array[,] of integer);
begin
  A.Println(4)
end;

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
  var a:array[,] of integer;
  MatrixCreate(m,n,a);
  Writeln('*** Начальная матрица ***');
  MatrixOutput(a);
  a.Transform(t-gt;tgt;0?1:t);
  Writeln('*** Приобретенная матрица ***');
  MatrixOutput(a);
end.