Наименьший элемент побочной диагонали матрицы поменять с первым элементом главной диагонали - Turbo Pascal

const n=10;
var
  a: array [1..n,1..n] of Integer;
  i, j: Integer;
begin
  Randomize;
  for i:=1 to n do for j:=1 to n do a[i,j]:=Random(21);
  WriteLn('A =');
  for i:=1 to n do begin
    for j:=1 to n do Write(' ',a[i,j]:3); WriteLn;
  end;
  j:=1; for i:=2 to n do if a[n-j+1,j]>a[n-i+1,i] then j:=i;
  WriteLn('Минимальный элемент поб.диагонали: a[',n-j+1,',',j,']=',a[n-j+1,j]);
  i:=a[1,1]; a[1,1]:=a[n-j+1,j]; a[n-j+1,j]:=i;
  WriteLn('A''=');
  for i:=1 to n do begin
    for j:=1 to n do Write(' ',a[i,j]:3); WriteLn;
  end;
end.