标题：for 循环语句怎么写，请给一个完整的例子

runmode:0;
hh:hhv(h,4);
h1:=h;
if barpos>4 then begin
 for i=0 to 3 do begin
  if h1[barpos-i]=hh then begin
   n:=i; 
  end
 end
end
nn:n,linethick0;