Найти наименьший элемент матрицы и номер строки и столбца, в которых он находится

const
  nmax = 100;
 
type
  matr = array[1..nmax, 1..nmax] of integer;
 
procedure zapolnenie(var mas: matr; const n: integer);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to n do
      mas[i, j] := random(20) - 10;
end;
 
procedure vivod(const mas: matr; const n: integer);
var
  i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(mas[i, j]:4);
    Writeln;
  end;
end;
 
procedure naim(const mas: matr; const n: integer; var x, y: integer);
var
  i, j, min: integer;
begin
  min := mas[1, 1];
  for i := 1 to n do
    for j := 2 to n do
      if min > mas[i, j] then
      begin
        min := mas[i, j];
        x := j;
        y := i;
      end;
end;
 
function proizv(const mas: matr; const n: integer): integer;
var
  i, j, pr: integer;
begin
  pr := 1;
  j := n;
  for i := 1 to n do
  begin
    pr := pr * mas[i, j];
    dec(j);
  end;
  proizv := pr;
end;
 
var
  n, x, y: integer;
  mas: matr;
 
begin
  Readln(n);
  zapolnenie(mas, n);
  vivod(mas, n);
  naim(mas, n, x, y);
  Writeln('1)Минимальный элемент в ', x, ' столбце, ', y, ' строке.');
  Writeln('2)Произведение элементов побочной диагонали: ', proizv(mas, n))
end.