даны 2 действительные квадратные матрицы порядка N. Получить новую матрицу.умножением элементов каждой строки первой матрицы на наибольший из значений соответственно второй матрицы — Pascal(Паскаль)

begin
  randomize;
  Writeln('vvedite razmer matricy - n:');
  Readln(n);
  setlength(m,n);
  SetLength(m2,n);
  for r:=0 to high(m) do
  begin
    SetLength(m[r],n);
    for  c:=0  to High(m[r])  do
    begin
      m[r,c]:=random(20);
      write(m[r,c]:3);
    end;
    writeln;
  end;
  Writeln;
 
  for r:=0 to high(m2) do
  begin
    SetLength(m2[r],n);
    for  c:=0  to High(m2[r])  do
    begin
      m2[r,c]:=random(20);
      write(m2[r,c]:3);
    end;
    writeln;
  end;
  Writeln;
 
  SetLength(m3,n);
  for r:=0 to high(m3) do
  begin
    SetLength(m3[r],n);
  end;
  Writeln;
 
  max:=m2[0,0];
  for  r:=0  to High(m2) do
  begin
    for  c:=0  to High(m2[0]) do
    begin
      if Max<m2[r,c] then max:=m2[r,c];
    end;
  end;
 
  for  r:=0  to High(m3) do
  begin
    for  c:=0  to High(m3[0]) do
    begin
      m3[r,c]:=m[r,c]*max;
    end;
  end;
 
  for r:=0 to high(m) do
  begin
    for  c:=0  to High(m[0])  do
    begin
      write(m3[r,c]:5);
    end;
    Writeln;
  end;
 
  Writeln('end');
  Readln(n);
end.