Дана матрица. Найти индекс минимального элемента матрицы. Матрица — 15 строк на 10 столбцов — Pascal(Паскаль)

Uses CRT;
const
  n = 15;
  m = 10;
Var
  mas : array [1..n, 1..m] of Integer;
  i, j, k, h, min : Integer;
Begin
  For i := 1 to n do
    For j := 1 to m do begin
      mas[i, j] := Random(1000);
    end;
  min := mas[1, 1];
  For i := 1 to n do
    For j := 1 to m do begin
      If mas[i, j] < min then begin
        min := mas[i, j];
        k := i; h := j;
      end;
    end;
  Write(k, ' ', h);
  ReadLn;
End.