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

здорово, спасибо

Пожалуйста...

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