多维数组问题

自定义一个求最大值函数：Amax：

function Amax(a:array of double):double;
var i:integer;
begin
  result:=a[low(a)];
  for i:=low(a) to high(a) do begin
  if a[i]>result then
  result:=a[i];
  end;
end;

假设现在有个数组B[1..n,1..m]，即有n行，m列

要求每一个列的最大值

如何通过Amax函数调用，来求每一列的最大值

谢谢

为何不讲行列倒换一下呢？
下面是求全局最大的
var TmpF,FinalF:Double
FinalF :=0;
for i:=low(b) to high(b)
  TmpF :=Amax(b[i]);
  if FinalF<TmpF then
  FinalF :=TmpF;
end;