Паскаль. Дана действительная матрица размера n×m, в которой есть хотя бы один ненулевой элемент. Получите новую матрицу путем деления всех элементов заданной на ее наибольший по абсолютной величине элемент

Const     m = 5;     n = 4; Var     A: array[1..m, 1..n] of real;     i, j: integer;     max: real; Begin     for i := 1 to m do begin         writeln();         for j := 1 to n do begin             A[i,j] := random(200) - 100;             write(A[i,j]:5, ' ');               if ((i=1) and (j=1)) or (max < abs(A[i,j])) then                 max:=abs(A[i,j]);         end;     end;         writeln();     writeln('Max = ', max);       for i := 1 to m do begin         writeln();         for j := 1 to n do begin             A[i,j] := A[i,j] / max;             write(A[i,j]:5:2, ' ');         end;     end; End.