CONST
 max_cols = 10; {максимально возможное число столбцов N
                 измените, если мало. Это число - еще можно показать
                 без проблем}
 max_rows = 18; {Из условия задачи}
 max_element =  10; {Множители для случайных чисел}
 min_element = -10;
 diap        = (max_element - min_element);

{!!! ИЗМЕНЕНИЕ:}
{} fract       = 0; {Самое важное - число цифр после десятичной точки}
{}                  {поэтому только их и ограничиваем}

VAR
    ar: array [1..max_rows, 1..max_cols] of Real;
    {Действительные - это вещественные}
    N1: Integer; {введенное число столбцов}
    max_row, max_col, row, col: Integer;
    count : Integer; {Число равных максимальному}

{!!! ИЗМЕНЕНИЕ:}
{}  coeff:  Integer; {Поможет получить ограничение}

BEGIN
  Write('Введите число столбцов N (от 1 до ', max_cols,'): ');
  ReadLn(N1);
  if N1 < 1 then N1 := 1; {Что делать, если неверный ввод}
  if N1 > max_cols then N1 := max_cols;
  {Заполнение случайными числами}
  randomize;  {Каждый раз новыми - инициализация генератора
               псевдослучайных чисел}
{!!! ИЗМЕНЕНИЕ:}
{}  coeff := 1;
{}  for row := 1 to fract do coeff := coeff * 10;

  for row :=1 to max_rows do
  begin
     for col := 1 to N1 do
     begin
       ar[row, col] := random*diap + min_element;
{!!! ИЗМЕНЕНИЕ:}
{}     ar[row, col] := round(ar[row, col]*coeff)/coeff;

       Write(ar[row, col]:8:3);
     end;
     WriteLn
  end;

  {Ищем максимальный по модулю, вернее, его индексы}
  max_row := 1;  {Для начала полагаем, что это первый}
  max_col := 1;
  for row :=1 to max_rows do
    for col :=1 to N1 do
       if abs(ar[row, col]) > abs(ar[max_row, max_col]) then
       begin
          max_row := row; max_col := col
       end;
  WriteLn;
  WriteLn('Максимальный элемента находится в ряду ',max_row,
     ', колонке ',max_col,'.');
  WriteLn('Его значение: ',ar[max_row, max_col]:8:3);
  {Теперь найдем число равных ему - различный вывод, если есть
   и если нет равных}
  count := 0;
  for row := 1 to max_rows do
    for col := 1 to N1 do
       if abs(ar[max_row, max_col]) = abs(ar[row, col]) then
       inc(count);
{!!! ИЗМЕНЕНИЕ:}
{Тут была ошибка/неточность - равенство самому себе не отрабатывалась}
{}  if count <= 1 then WriteLn('В массиве нет элементов, равных максимальному')
  else
  begin
  WriteLn('Индексы элементов, равных максимальному:');
  for row := 1 to max_rows do
    for col := 1 to N1 do
      if abs(ar[row, col]) = abs(ar[max_row, max_col]) then
      Write(row:2,',',col:2,'   ');
  end;
  WriteLn;
END.