Если на побочной диагонали элементы расположены в порядке убывания, то найти среди них минимальный по модулю

const n = 4;
var
  a: array[1..n,1..n] of integer;
  i,j, dmin, imin, d: integer;
  neub: boolean;
  begin
    for i := 1 to n do  for j := 1 to n do 
       begin 
         a[i,j] := 50-Random(100);
         Write(a[i,j]:4); if j = n then Writeln
       end;
    dmin := abs(a[n,1]);
    imin := n;
    for i := 1 to n-1 do
      begin
         if a[i, n+1 - i] < a[i+1, n-i] then neub := true;
         if abs(a[i, n+1 - i]) < dmin then begin dmin := abs(a[i, n+1 - i]); imin := i end;
      end;
    if not neub then write('Мин. по модулю: ', a[imin, n+1 - imin]) 
    else begin   
        Writeln;
        for i:=1 to n do
          for j:=1 to n-i+1 do begin
             d:=a[i,j];
             a[i,j]:=a[n-j+1,n-i+1];
             a[n-j+1,n-i+1]:=d;
          end;
        for i := 1 to n do  for j := 1 to n do 
           begin Write(a[i,j]:4); if j = n then Writeln end;  
     end;    
  end.

##
var n := 3;
var a := MatrRandom(n,n, -50,50).Println; Println;
var d := a.Rows.Select((t,i) -> t[n-1-i]);
if d.Incremental((a,b) -> a>b).All(t-> t) then Println('Мин.по модулю:',d.MinBy(t -> abs(t)))
else MatrByCol(a.Rows.ConvertAll(t->t[::-1]).Reverse).Print