主题：[求助]请问这个算法为什么没能求出当天close在周期内的百分位

 length:10;
if barpos>=length+1 then
begin
   b:=0;
   for i = 1 to length do
   begin
    a:=if(c>c[barpos-i],1,0);
    b:=b+a;
    end
end
po:b/length;