Массив: Повернуть двумерный массив на 90 градусов...

begin
  var(m,n):=(3,4);
  var a := MatrGen(m,n,(r,c)->r*n+c+1).Println;
  WriteLn('~'*20);
  a := MatrGen(n,m,(r,c)->a[m-c-1,r]).Println;
end.

begin
  var(m,n):=(3,4);
  var a := MatrGen(m,n,(r,c)->r*n+c+1).Println;
  WriteLn('~'*20);
  a := MatrGen(n,m,(r,c)->a[m-c-1,r]).Println;
end.

function TutnOnN(self: array [,] of integer): array [,] of integer; extensionmethod;
begin
  
  result := MatrGen(self.RowCount, self.ColCount, (r, c)-> self[self.ColCount - c - 1, r]);
end;

begin
  var(m,n):=(3,4);
  var a := MatrGen(m,n,(r,c)->r*n+c+1).Println;
  WriteLn('~'*20);
  //a := MatrGen(n,m,(r,c)->a[m-c-1,r]).Println;
  var b : array [,] of Integer;
  SetLength(b, a.GetLength(1), a.GetLength(0));
  for var r := 0 to b.GetLength(0)-1 do
    for var c := 0 to b.GetLength(1)-1 do
      b[r,c] := a[a.GetLength(0)-c-1,r];
  b.Println;
end.

function TutnOnN(self: array [,] of integer): array [,] of integer; extensionmethod;
begin
  var a := MatrGen(self.RowCount, self.ColCount, (r, c)-> r * self.ColCount + c + 1);
  
  var b: array [,] of Integer;
  SetLength(b, a.GetLength(1), a.GetLength(0));
  for var r := 0 to b.GetLength(0) - 1 do
    for var c := 0 to b.GetLength(1) - 1 do
      b[r, c] := a[a.GetLength(0) - c - 1, r];
  result := b;
end;