В матрице целых чисел произвольного размера определить минимальное число и его индексы

Const
m1 = 30;
n1 = 30;

var
a: array[1..m1, 1..n1] of integer;
m, n, i, j, t, imin, jmin, mn: integer;

begin
Write('Введите через пробел число строк и столбцов массива: ');
Readln(m, n);
Randomize;
Writeln('Исходный массив');
mn := 32767;
for i := 1 to m do
begin
    for j := 1 to n do
    begin
      t := Random(101) - 50;
      Write(t:5);
      if mn > t then begin mn := t; imin := i; jmin := j end;
      a[i, j] := t
    end;
    Writeln
end;
Writeln('Минимальный элемент a[', imin, ',', jmin, ']=', mn)
end.

Тестовое решение:
Введите через пробел число строк и столбцов массива: 6 8
Исходный массив
-35   33   44   32   37   31 -21   24
   42 -27   45 -30 -10   25   -6   -1
    1 -40 -12   47   24 -31 -29    5
   35 -15   23   40 -41   19 -37 -35
    4   24 -47 -47   50   27   21 -23
-44   35 -36 -46   30 -21 -50 -48
Минимальный элемент a[6,7]=-50