Зеркально отразить матрицу относительно побочной диагонали

const n = 3;
var
  a:array[1..n,1..n] of integer;
  i,j:integer;
  b,b1:boolean; 
begin
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=random(10)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln('Преобразованная матрица:');
    for i:=1 to n do 
      for j:=1 to n-i do 
        Swap(a[i,j],a[n-j+1,n-i+1]);
    for i:=1 to n do begin
      for j:=1 to n do write(a[i,j]:4);
      writeln;
    end;
    b1:=true;
   for j:=1 to n do begin
     b:=true;
     for i:=1 to n-1 do 
       if a[i,j]<=a[i+1,j] then b:=false;//строго убывающая последовательность
     if b then begin 
       writeln('столбец ',j,' образует убывающую последовательность.');
       b1:=false;
     end;  
    end;
   if b1 then writeln('Ни один из столбцов не образует убывающей последовательности'); 
end.