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

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

K= 38.1*38.1*1200*1200  i = 8 бит  i = k*i =  16 722 547 200 битов