Создайте двумерный массив X, имеющий четыре строки и три столбца и найдите в нем максимальный по абсолютному значению элемент, а также определите номер строки и столбца, содержащие этот элемент

const   m = 4; n = 3; var   a: array[1..m, 1..n] of integer;   i, j, mi, mj, max: integer; begin   Randomize;   for i := 1 to m do     for j := 1 to n do       a[i, j] := random(100) - 50;  // случайные числа в интервале [-50..50]   max := -100;  //меньше минимального из возможных   for i := 1 to m do     for j := 1 to n do       if max < abs(a[i, j]) then begin         max := abs(a[i, j]); mi := i; mj := j       end;   writeln('Исходный массив');   for i := 1 to m do   begin     for j := 1 to n do       write(a[i, j]:4);     writeln   end;   writeln('Максимальный по модулю элемент:a(', mi, ',', mj, ')=', max:3) end. Контрольный пример: Исходный массив   10  30  30   24 -11  28  -43 -50 -13   -8  21   5 Максимальный по модулю элемент:a(3,2)= 50