Найти максимальный элемент динамического массива и умножить этот элемент на каждый в этом массиве

var
  n,m,i, j, max: integer;
  a:array of array of integer;
begin
  randomize;
  n:=10;  m:=8;
  setlength(a,n,m);
  writeln('Исходный массив:');
  for i := 0 to n-1 do
    begin
      for j := 0 to m-1 do
        begin
          a[i,j]:=random(n*n);
          write(a[i,j]:4);
        end;
      writeln;
    end;
  max:=a[0,0];
  for i := 0 to n-1 do
    for j := 1 to m-1 do
      if a[i, j] > max then
        max:=a[i,j];
  writeln('Максимум: ',max);
  writeln('Преобразованный массив:');
  for i := 0 to n-1 do
    begin
      for j := 0 to m-1 do
        begin
          a[i,j]:=a[i,j]*max;
          write(a[i, j]:8);
        end;
      writeln;
  end;
  setlength(a,0,0);
  readln;
end.

uses math;
var 
  maximum : integer;
  v : array of integer;
 
// ...
  maximum := a[0, 0];
  for v in a do
    maximum := max(maximum, maxintvalue(v));