请问这个思路最简洁的编写方法

runmode:0;

for i=1 to barpos-1 do begin

      if f[barpos]=f[barpos-i] then begin

         n:=i;

         break;

      end

end

n为所求值

老师，上面的程序我看懂了，可以找出离当前最近的f值相同的那根k线。如果我是要把n周期内所有和当前f值相同的历史k线都找出来呢？