主题：[求助]循环赋值

for i=0 to 59 do
begin 
k:=i;
end
k;
ref(k,1)
我想实现前60根k线上添加系数

把前60根系数ref（k,59）赋值为59，前59赋ref(k,58)值为58 ....
当前K线赋值为 ref（k,0）赋值0
怎么实现呢
这个
for i=1 to 59 do
begin 
k:=i;
end
在前一个k线上k值仍然是59