主题：升级后出错

for i=lbound(hsl)+1 to datacount do begin

升级后这句话出解释性错误，咋回事，如何解决

input:N1(5,1,999),N2(20,1,999),N3(40,1,999),NN(100,100,1000);
mid:=(o+c)/2;
hsl:=if(capital=0,v/sum(v,NN),v/capital);
if capital=0 then begin
  hsl:=v/sum(v,NN);
  a:=setlbound(hsl,1);
  for i=1 to min(NN-1,datacount) do hsl[i]:=0;
end;
ljhs[1]:=hsl[1];
cyc1[1]:=mid[1];
ljhs2[1]:=hsl[1];
cyc2[1]: mid[1];
ljhs3[1]:=hsl[1];
cyc3[1]: mid[1];
ljhsm[1]:=hsl[1];
cycmax[1]:mid[1];
dd:=mid[1]*(barpos<NN);
for i=lbound(hsl)+1 to datacount do begin
  ljhs[i]:=ljhs[i-1]*(1-hsl[i])*(n1-1)/n1+hsl[i];
  cyc1[i]:(mid[i]*hsl[i]+cyc1[i-1]*ljhs[i-1]*(1-hsl[i])*(n1-1)/n1)/ljhs[i]+dd[i];
  ljhs2[i]:=ljhs2[i-1]*(1-hsl[i])*(n2-1)/n2+hsl[i];
  cyc2[i]:=(mid[i]*hsl[i]+cyc2[i-1]*ljhs2[i-1]*(1-hsl[i])*(n2-1)/n2)/ljhs2[i]+dd[i];
  ljhs3[i]:=ljhs3[i-1]*(1-hsl[i])*(n3-1)/n3+hsl[i];
  cyc3[i]:=(mid[i]*hsl[i]+cyc3[i-1]*ljhs3[i-1]*(1-hsl[i])*(n3-1)/n3)/ljhs3[i]+dd[i];
  ljhsm[i]:=ljhsm[i-1]*(1-hsl[i])+hsl[i];
  cycmax[i]:=(mid[i]*hsl[i]+cycmax[i-1]*ljhsm[i-1]*(1-hsl[i]))/ljhsm[i]+dd[i];
end;

第18行错误，在升级之前是正确的

是 2.941版本，用上证指数测试正常吗