Дан двумерный целочисленный массив A(N,M). Сформировать одномерный массив B, содержащий максимальные элементы соответствующих столбцов A(N,M).

  for j:=1 to m do
  begin
    max:=a[1,j];
    for i:=1 to n do
      if a[i,j]>=max then
      begin
        max:=a[i,j];
        b[j]:=max;
      end;
  end;

Спасибо, спас =)