Поменять зеркально местами элементы, расположенные над второстепенной и под главной диагоналями

program fignya;
var a :array[1..100, 1..100] of integer ;
i,j,n,f,g,h,k: integer ;
begin
writeln('vvedit n');
readln(n);
randomize ;
for i:=1 to n do begin
for j:=1 to n do
begin
a[i,j]:=random(10)-7;
write(a[i,j]:4);
end;
writeln;
end;
writeln;
for i:=2 to n do begin
for j:=1 to (i-1) do
begin
f:=a[i,j] ;
end;
end;
for i:=1 to n-1 do begin
for j:=2 to i do
begin
h:=a[i,j];
f:=h;
h:=a[i,j];
end;
end;
for i:=1 to n-1 do begin
for j:=1 to i-1 do
begin 
g:=a[i,j];
end;
end;
for i:=2 to n do begin
for j:=2 to i do
begin 
k:=a[i,j];
k:=g ;
g:=a[i,j] ;
end;
end;
writeln('новий масив');
for i:=1 to n do
begin
for j:=1 to n do
begin;
write( a[i,j]:4);
end;
writeln ;
end;
 
end.

uses crt;
const mmax=11;
type mas=array[1..mmax,1..mmax] of integer;
var i,j,m,tmp:integer;
    a:mas;
begin
 randomize;
 textcolor(white);
 repeat
  writeln('m=?, 1<m<11');
  readln(m)
 until (1<m)and(m<11);
 for i:=1 to m do
  begin
   for j:=1 to m do
    begin
     a[i,j]:=random(51);
     if (i>j)and(i<m-j+1)
      then 
       begin
        textcolor(yellow);
        write(a[i,j]:3);
        textcolor(white)
       end
      else write(a[i,j]:3)
    end;
   writeln
  end;
  writeln;
  for i:=1 to m do
   for j:=1 to m do
     if (i>j)and(i<m-j+1)
      then 
       begin
        tmp:=a[i,j];
        a[i,j]:=a[i,m-j+1];
        a[i,m-j+1]:=tmp;
       end;
  for i:=1 to m do
  begin
   for j:=1 to m do
    begin
     if (i<j)and(i>m-j+1)
      then 
       begin
        textcolor(yellow);
        write(a[i,j]:3);
        textcolor(white)
       end
      else write(a[i,j]:3) 
    end;
   writeln
  end;
 readln 
end.