Задана
матрица (двумерный массив) A размером N x М,  состоящая из действительных элементов. Числа M и N вводятся с клавиатуры.
Для задания исходной матрицы предусмотреть ввод с клавиатуры или ввод с помощью
датчика случайных чисел. Где это
необходимо ввести квадратную матрицу.  Во
всех вариантах вывести исходную матрицу в общепринятом виде и необходимые
результаты работы программы. Получить новую матрицу путем деления всех
элементов данной матрицы  на ее
наибольший по модулю элемент. Сформировать вектор из разности максимального и
минимального элементов строк. Вывести на экран полученную матрицу и вектор.

const    auto = true;var    a: array[1..100, 1..100]of real;    b: array[1..100]of real;    n, m, j, i: integer;    gmax, min, max: real;begin    read(n, m);    for i := 1 to n do        for j := 1 to m do         begin            if auto then                a[i, j] := random(100)            else                            read(a[i, j]);                            if abs(gmax) < abs(a[i, j]) then                 gmax := a[i, j];        end;        for i := 1 to n do     begin        min := a[i, 1] / gmax;        max := a[i, 1] / gmax;                for j := 1 to m do         begin            a[i, j] := a[i, j] / gmax;            if min > a[i, j] then min := a[i, j];            if max < a[i, j] then max := a[i, j];                        write(a[i, j]:5:2, ' ');        end;                b[i] := max - min;        writeln(' => ', b[i]:5:2);    end;end.