одномерный массив, каждый элемент которого равен наибольшему по модулю элементу соответствующего столбца

[ruslan09-93]

Дан двумерный массив размерностью 5*6, заполненный целыми числами с клавиатуры. Сформировать одномерный массив, каждый элемент которого равен наибольшему по модулю элементу соответствующего столбца.

[Greblin]

for j := 1 to 6 do
  begin
  max := A[1, j];
  for i := 2 to 5 do
    if abs(A[i, j]) > abs(max) then
      max := A[i, j];
  B[j] := max
  end;

[ruslan09-93]

большое спасибо)))