Разделить элементы матрицы на элемент, наибольший по абсолютной величине - Pascal

Формулировка задачи:

помогите, пожалуйста, решить задание. Задана матрица X(7,11). Образовать матрицу Y(7,11) путем деления всех элементов исходной матрицы на ее элемент, наибольший по абсолютной величине.

Решение задачи: «Разделить элементы матрицы на элемент, наибольший по абсолютной величине»

Листинг программы

program pr;
 
const
  n = 7;
  m = 11;
 
var
  i, j: integer;
  max: real;
  x, y: array [1..n, 1..m] of real;
 
begin
  for i := 1 to n do
    for j := 1 to m do
      x[i, j] := random(21);       // диапазон заполнения ставь какой хочешь
  writeln('Массив Х');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(x[i, j]:3);
    writeln;
  end;
  max := x[1, 1];
  for i := 1 to n do
    for j := 1 to m do
      if x[i, j] < 0 then
        if abs(x[i, j]) > abs(max) then max := x[i, j];
  writeln('Наибольший по абсолютной величине элемент ', max);
  for i := 1 to n do
    for j := 1 to m do
      y[i, j] := x[i, j] / max;
  writeln;
  writeln('Матрица Y');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(' ', y[i, j]:3:1);
    writeln;
  end;
end.

Объяснение кода листинга программы

Создается программа на языке Pascal с использованием констант и переменных.
Задаются значения констант n и m, которые определяют размер матрицы X и Y соответственно.
Создается двумерный массив X размером n на m, который будет использоваться для хранения случайных чисел.
Генерируются случайные числа для каждого элемента массива X.
Выводится массив X с помощью команды writeln.
Находится максимальное значение в массиве X с помощью цикла и условного оператора if.
Обновляется значение переменной max, если найденное число больше текущего максимального значения.
Создается второй двумерный массив Y размером n на m, который будет использоваться для хранения результатов деления.
Делается цикл по всем элементам массива X и выполняется деление каждого элемента на текущее максимальное значение.
Выводится матрица Y с помощью команды writeln.
Для каждого элемента массива Y выводится пробел и его значение с помощью команды write.
Программа завершается.