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

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