你先把第一列读到一个数组里,例如A[1..7],然后作
var i,j,k:integer;
j:=0 ;
for i:= 0 to 6 then
  begin
     if (a[i+1]- a[i])>j then 
        begin
           j:=a[i+1]-a[i]; 
           k:=i;
        end;
  end;

怎么写入数组？假如表中列中个数不定则数组个数不定怎么办？