Перестановка блоков матрицы Опции

[Олег]

Вот решаю я задачу:
Дана действительная квадратная матрица порядка 2N. Получить новую матрицу, переставляя ее блоки размера NxN в соответствии с рисунком

Собственно, не приходит идеи, как это сотворить. Вначале предполагал повернуть на 180, но тогда меняется содержимое блоков при N больше 1-го.

Заранее спасибо.

[Алена]

procedure swap_lines(a, b: integer);
var
  i: integer;
  T: real;
begin
  for i := 1 to 2 * n do begin
    T := arr[a, i]; arr[a, i] := arr[b, i]; arr[b, i] := T;
  end;
end;
procedure swap_columns(a, b: integer);
var
  i: integer;
  T: real;
begin
  for i := 1 to 2 * n do begin
    T := arr[i, a]; arr[i, a] := arr[i, b]; arr[i, b] := T;
  end;
end;

...
  for i := 1 to n do swap_lines(i, n+i);
  for i := 1 to n do swap_columns(i, n+i);
...