program Main;
var
A: array[1..6, 1..8] of integer;
B: array[1..6] of integer;
i, j, max: integer;

begin
// заполняем массив A случайными числами
randomize;
for i := 1 to 6 do
begin
for j := 1 to 8 do
begin
A[i, j] := random(100);
write(A[i, j], ' ');
end;
writeln;
end;

// находим наибольшие элементы каждой строки и записываем в массив B
for i := 1 to 6 do
begin
max := A[i, 1];
for j := 2 to 8 do
begin
if A[i, j] > max then
max := A[i, j];
end;
B[i] := max;
end;

// выводим массив B на экран
writeln('Наибольшие элементы каждой строки:');
for i := 1 to 6 do
begin
write(B[i], ' ');
end;
end.