begin
  var arr := MatrixRandom(8, 9, -50, 50);
  var i_index := 0;
  var j_index := 0;
  for var i := 0 to arr.GetLength(0) - 1 do
  begin
    for var j := 0 to arr.GetLength(1) - 1 do
    begin
      if Abs(arr[i, j]) > Abs(arr[i_index, j_index]) then
      begin
        i_index := i;
        j_index := j;
      end;
      Write(arr[i, j]:5);
    end;
    WriteLn;
  end;
  WriteLnFormat('Максимальный элемент массива по модулю: arr[{0},{1}]={2}', i_index, j_index, arr[i_index, j_index])
end.