Сформировать массив (строки)

[felmor]

Сформировать массив В из максимальных по значению
элементов каждой строки исходной матрици А(MxN).

что-то я вобще не пойму как делать, помогите

P.S кстати, всех с рождеством

[alex_fcsm]

Наверное что-то такое

const m=7;
      n=6;
var a:array[1..m,1..n] of integer;
    b:array[1..m] of integer;
    i,j:integer;
begin

for i:=1 to m do
begin
 for j:=1 to n do
 begin
  a[i,j]:=random(100);
  write(a[i,j]:3);
 end;
 writeln;
end;
writeln('------------------');
for i:=1 to m do
 begin
  b[i]:=a[i,1];
   for j:=2 to n do
    if a[i,j]>b[i] then b[i]:=a[i,j];
 end;
 
 for i:=1 to m do
  write(b[i]:3);
end.