Введенная квадратная числовая матрица размера N*N

[Алекс К.]

Введенная квадратная числовая матрица размера N*N (N – задано) разделена диагоналями, проведенными из углов, на 4 треугольника. Поменять местами элементы верхнего и нижнего треугольников, симметричные относительно горизонтальной оси матрицы. Диагональные элементы оставить на прежних местах. Измененную матрицу напечатать.

Помогите решить

[Sazary]

uses crt;
var
A : array[1..100,1..100] of integer;
n,i,j,k,tmp : integer;

begin
clrscr;
write('Enter n: ');
readln(n);
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  A[i,j] := 10*(i-1)+j;
  write(A[i,j]:4);
  end;
 writeln;
 end;
writeln;

{ меняем по вертикали }
for i:=1 to (n div 2) do
 for j:=i+1 to n-i do
  begin
  tmp := A[i,j];
  A[i,j] := A[n-i+1,j];
  A[n-i+1,j] := tmp;
  end;
{ по горизонтали }
for j:=1 to (n div 2) do
 for i:=j+1 to n-1 do
  begin
  tmp := A[i,j];
  A[i,j] := A[i,n-j+1];
  A[i,n-j+1] := tmp;
  end;
{ выводим }
for i:=1 to n do
 begin
 for j:=1 to n do
  write(A[i,j]:4);
 writeln;
 end;

readln;
end.

[Алекс К.]

спасибо за помощь