Нахождение минимального элемента до побочной диагонали в матрице

Условие задачи.

Квадратную матрицу 13x13 заполнить случайными числами из диапазона [-18..13], вывести ее на экран.
Заменить минимальный из элементов, расположенных на побочной диагонали и выше ее, на произведение элементов, расположенных ниже главной диагонали. Вывести матрицу на экран.

Программа на Pascal по работе с матрицей

Program Matrix;

Var a: array [1..13,1..13] Of integer;
  i,j,min,imin,jmin,n,max: integer;
Begin
  Writeln('Isxodnaya matrix');
  Randomize;
  For i:=1 To 13 Do
    Begin
      For j:=1 To 13 Do
        Begin
          a[i,j] := random(31)-18;
          Write(a[i,j]:5);
        End;
      writeln;
    End;
  min := a[1,1];
  j := 1;
  For n:=13 Downto 1 Do
    Begin
      i := 1;
      While i<>n Do
        Begin
          If min > a[i,j] Then
            Begin
              min := a[i,j];
              imin := i;
              jmin := j;
            End;
          i := i+1;
        End;
      j := j+1;
    End;
  writeln('Minimum = ',min);
  j := 1;
  max := 0;
  For n:=1 To 13 Do
    Begin
      i := 1;
      While i<>n Do
        Begin
          max := a[i,j];
          i := i+1;
        End;
      j := j+1;
    End;
  Writeln('Maximum = ',max);
  writeln ('i=',imin,' j=',jmin);
  a[imin,jmin] := max;
  readln;
  writeln('ismeninniu matrix');
  For i:=1 To 13 Do
    Begin
      For j:=1 To 13 Do
        Write(a[i,j]:5);
      writeln;
    End;
  Readln;
End.