請(qǐng)問這個(gè)思路最簡潔的編寫方法

runmode:0;

for i=1 to barpos-1 do begin

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

         n:=i;

         break;

      end

end

n為所求值

老師，上面的程序我看懂了，可以找出離當(dāng)前最近的f值相同的那根k線。如果我是要把n周期內(nèi)所有和當(dāng)前f值相同的歷史k線都找出來呢？