Найти максимальные значения в столбцах и максимальное в макс

const l = 10;
var
  m: array [1..l,1..l] of integer;
  n: array [1..l] of integer;
begin
  for var i := 1 to l do for var j := 1 to l do m[i,j] := random(100,999);
  for var i := 1 to l do begin
    for var j := 1 to l do write(m[i,j], ' ');
    writeln;
  end;
  for var i := 1 to l do begin
    for var j := 1 to l do begin
      if m[i,j] > n[j] then n[j] := m[i,j];
    end;
  end;
  writeln;
  for var i := 1 to l do write(n[i], ' ');
  writeln;
  for var i := 1 to l do if n[i] > n[1] then n[1] := n[i];
  writeln(n[1]);
end.