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

uses crt;
const
  str=5;{количество строк}
  sto=5;{количество столбцов}
var
  a:array [1..str,1..sto] of integer;
  i,j,max:integer;
begin
  clrscr;
  {заполняем и выыводим массив}
  writeln('Исходная матрица:');
  for i:=1 to str do
  begin
    for j:=1 to sto do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j],' ')
    end;
    writeln
  end;
  {находим максимум побочной}
   max:=a[str,sto];
   for i:=str-1 downto 1 do
     if a[i,i]>max then
       max:=a[i,i];
   writeln('Максимум побочной диагонали: ',max);
end.