Помогите пожалуйста задачку решить

[Alexandr14]

Помогите плз с задачкой. Массив А [1..n,1..n] разбивается на четыре четверти, ограниченные главной побочной диагоналями; верхнюю, нижнюю, левую, и правую. Поменять местами элементы : верхней и нижней четвертей; правой и левой четвертей.

[Djem1991]

а ты нарисуй на бумажке, и заалгоритмируй действия,а потом просто их напиши... тут просят помощи,чтобы разобраться,а не просят думать за них.

[Alexandr14]

Мне кажется вот так будет выглядеть.Можете посмотреть нету ли тут ошибок?

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const nmax=50;{максимальный размер}

Var
   x:array[1..4,1..4] of integer;
  i, j, m, n : integer;
  c: integer;
Begin
  n:=4;
  c:=4;
  x[1,1]:=1;
  x[2,1]:=2;
  x[3,1]:=3;
  x[4,1]:=4;
  x[1,2]:=5;
  x[2,2]:=6;
  x[3,2]:=7;
  x[4,2]:=8 ;
  x[1,3]:=9 ;
  x[2,3]:=10;
  x[3,3]:=11;
  x[4,3]:=12 ;
  x[1,4]:=13 ;
  x[2,4]:=14 ;
  x[3,4]:=15 ;
  x[4,4]:=16 ;
 for i:=1 to 4  do   {цикл по строкам (достаточно просмотреть до половины}
  for j:=1 to 4 do
  begin  {цикл по столбцам (первый и последний никогда не будут входить в нужную область)}
   if (j>i) and (i+j<4+1) then   {если это элемент верхней четверти}
   begin   {меняем его с соответствующим элементом нижней четверти}
    c:= x[i,j];
 x[i,j]:= x[4-i+1,j];
 x[4-i+1,j]:= c;
    end;
     if (j<i) and (i+j<4+1) then  
   begin
 c:= x[i,j];
 x[i,j]:= x[i,4-j+1];
 x[i,4-j+1]:= c;
end;
 end;
          for i:=1 to 4 do
            begin
              writeln;
                for j:=1 to 4 do write(' ',x[i,j], ' ')
            end;
         readln;
end.