var
  A: array[1..15, 1..15] of integer;
  B: array[1..15] of integer;
  i, j, m, n, max: integer;


begin
  writeln('Двумерный массив:');
  writeln;
  randomize;
  n := 1 + random(15); //размерность, случайное число от 1 до 15
  m := 1 + random(15); //размерность, случайное число от 1 до 15
  for i := 1 to n do
    begin
      max := 0;
      for j := 1 to m do
      begin
        a[i, j] := random(200); //элемент i-строки и j столбца равен случайному число от 1 до 199.
        write(a[i, j]:4);
        if max < a[i, j] then max := a[i, j];

      end;
      writeln('max = ':10, max);
      B[i]:=max;
    end;
  Writeln('________________________________________');
  Writeln('Максимальные элементы двумерного массива:');
  Writeln();
  for var z:=1 to High(B) do
    begin
      if (B[z] = 0) then
        begin
          break;
        end
      else
        begin
          write(B[z]:4);
        end;
    end;
end.