Подскажите, как правильно написать и оформить функции Опции

[Pistoletka]

Пусть дана вещественная квадратная матрица порядка 2n. Получить новую матрицу, переставляя ее блоки размера n, так:
а) крест-накрест;
б) по часовой стрелке.
Для обмена четырех заданных фрагментов матрицы напишите функцию.

[Федосеев Павел]

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

[Pistoletka]

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

Только сейчас заметила сообщение. Выдает ошибку, что "Индекс находился вне границ массива"

const n=2;
type matr=array[1..2*n,1..2*n] of integer;
var a:matr;
procedure vv_mas (var x:matr; s:string; f:boolean);
var i,j:integer;
begin
 writeln(s);
 for i:=1 to 2*n do
  for j:=1 to 2*n do
  readln (x[i,j]);
  writeln;
 for i:=1 to 2*n do
  begin
   for j:=1 to 2*n do
    write (x[i,j]:3);
    writeln;
  end;
end;  
procedure swap2 (var x:matr; s:string);
var i,j,a,b,c,d:integer;
begin
 for i:=1 to 2*n do
  for j:=1 to 2*n do
   begin
    a:=x[i,j];
    b:=x[i,j+n-1];
    c:=x[i+n-1,j+n-1];
    d:=x[i+n-1,j];
    x[i,j]:=d;
    x[i,j+n-1]:=a;
    x[i+n-1,j+n-1]:=b;
    x[i+n-1,j]:=c;
   end;
 for i:=1 to 2*n do
  begin
   for j:=1 to 2*n do
    write(x[i,j]:3);
    writeln;
  end;
end;
Begin
 vv_mas (a, 'A:', true);
 swap2(a, 'A:')
End.