Создать программу: сформируем массив Аnn из целых чисел. 2) отразит(перевернет) зеркально этот массив относительно дополнительной диагонали — Pascal(Паскаль)

Например:
Произвольно сформированный массив из целых чисел:
4 5 6
3 7 1
9 8 2
После зеркального отражения:
2 1 6
8 7 5
9 3 4

const 
n=5;
var
a:array[1..n,1..n] of integer;
i,j,temp:integer;
begin
for i:=1 to n do
    begin 
        for j:=1 to n do
          begin
            a[i,j]:=random(40);
            write('  ',a[i,j]:3);
          end;
        writeln();
    end;
writeln('--------') ; 
for i:=1 to n-1 do
 for j:=1 to n-i do
   begin
     temp:=a[i,j];
     a[i,j]:=a[n-j+1,n-i+1];
     a[n-j+1,n-i+1]:=temp;
   end;

writeln('--------') ; 

for i:=1 to n do
    begin 
        for j:=1 to n do
          begin
             write('  ',a[i,j]:3);
          end;
        writeln();
    end;
    
end.