主题：数组下标越界问题

tj2:=0;
tj3:=0;

for i=1 to datacount do
begin
 q2h[i]:=ref(high,2);
 q2l[i]:=ref(low,2);

 if ref(high,2)>=ref(high,3) and ref(high,2)>=ref(high,4) and ref(high,2)>=ref(high,1) and ref(high,2)>=high and i>=5 then gw[i]:=q2h[i];
 else gw[i]:=gw[i-1];
 if ref(low,2)<=ref(low,3) and ref(low,2)<=ref(low,4) and ref(low,2)<=ref(low,1) and ref(low,2)<=low and i>=5 then dw[i]:=q2l[i];
 else dw[i]:=dw[i-1];

end

gg:gw;
dd:dw;