написать код(Delphi)

[eoln]

Полагаю тема исчерпана

const
  n = 4;
var
  mas: array[1..n, 1..n] of byte;
  i, j, k, m: byte;
begin
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      mas[i, j] := random(10);
      write(mas[i, j]:2)
    end;
    writeln
  end;
  m := mas[2, 1];
  for i := 1 to n do
  for j := 1 to i - 1 do if mas[i, j] > m then m := mas[i, j];
  writeln('Max = ', m);
  readln
end.