Пожалуйста, помогите сделать данный двумерный массив в паскале

Или так

begin var n := 6; var a := new integer[n, n]; for var i := 0 to n - 1 do begin for var j := 0 to n - 1 do begin a[i, j] := (i + j) mod n + 1; write(a[i, j]:4); end; writeln; endend.

PascalABC.NET

begin

 var n := 6;

 var a := MatrGen(n, n, (i, j) -> (i + j) mod n + 1);

 a.Println;

end.