Написать с поддержкою паскаля, используя процедуру Дана целочисленная квадратная матрица

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

procedure DummyProc(a: array[,] of integer; var x: array of integer);

begin

 var n := a.RowCount;

 x := new integer[n];

 for var i := 0 to n - 1 do

 begin

   var b := a.Row(i).Where(t -gt; t.IsEven);

   x[i] := Max(b.First, b.Last)

 end

end;

begin

 var a := MatrRandom(8, 8, 10, 99);

 a.Println(3);

 Writeln(24 * '-');

 var x: array of integer;

 DummyProc(a, x);

 x.Println

end.