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

//функция нахождения максимального числа
function MaxElement(max, val: integer): integer;
begin
  if max < val then
  begin
    MaxElement := val;
  end
  else
  begin
    MaxElement := max;
  end;
end;

procedure mas(i, j: integer);
begin
  writeln('Двумерный массив:');
  writeln;
  randomize;
  for i := 1 to 5 do
  begin
    max := 0;
    for j := 1 to 5 do
    begin
      a[i, j] := random(100); //элемент i-строки и j столбца равен случайному число от 1 до 199.
      write(a[i, j]:4);
      max := MaxElement(max, a[i, j]);
    end;
    writeln('max = ':10, max);
    B[i] := max;
  end;
  writeln();
  for i := 1 to 5 do
    write(B[i], ' ');
end;

begin
  mas(i, j);
end.