Дана матрица M(5,5). Среди элементов побочной диагонали найти наименьший элемент — Pascal(Паскаль)

uses
  crt;
const
  n=5;
var
  a:array [1..n,1..n] of integer;
  i,j,min:integer;
begin
  clrscr;
    writeln('------:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
 
  min:=a[1,n];
  for i:=2 to n do
    if a[i,n-i+1]<min then
        min:=a[i,n-i+1];
  writeln('Минимальный : ',min)
end.