請問我要如何找由最近一日連續"收集派發指標"為正的股票?

經過測試,這程式找出的股票是"曾經"最長連續"收集派發指標"為正的股票,並不是找出由最近一日連續"收集派發指標"為正的股票,請問要如何修改呢?

var:i(0),n(1);

for i=0 to n  begin

if trueall(GetField("分公司賣出家數", "D")-getField("分公司買進家數", "D")>0,n ) then n=n+1;

end;

if n>1 then  begin

   ret=1;

   Outputfield1(n-1,"籌碼曾連續集中天數");

end;