Формы и подпрограммы: Получить новую матрицу путем деления всех элементов данный матрицы на ее наибольший по модулю элемент

const
  n = 5;
  m = 3;
 
type
  matrix = array[1..n, 1..m] of real;
 
var
  a: matrix;
 
function MaxEl(var a: matrix): real;
begin
  Result := a[1, 1];
  for var i := 1 to n do
    for var j := 1 to m do
      if Abs(Result) < Abs(a[i, j]) then Result := a[i, j];
  writeln('Наибольший по модулю элемент: ', result:0:5);
end;
 
procedure NewMatrix(var a: matrix; max: real);
begin
  writeln('Путем деления всех элементов данной матрицы на ее наибольший по модулю элемент получаем:');
  for var i := 1 to n do
  begin
    for var j := 1 to m do 
    begin
      a[i, j] /= max;
      write(a[i, j]:10:5);
    end;
    writeln;
  end;
end;
 
begin
  writeln('Дана действительная матрица размером ', n, ' на ', m, ':');
  for var i := 1 to n do 
  begin
    for var j := 1 to m do 
    begin
      a[i, j] := Random;
      write(a[i, j]:10:5);
    end;
    writeln;
  end;
  NewMatrix(a, MaxEl(a));
end.