主题：[求助]如何编写以下策略

t:=10;//自行定义td的值。
temp:=-100000;//初始定义一个比较小的值
j:=0;
for i=1 to t  do
begin
v1:ref(c,i)-ref(o,2*i-1);
v2:c-ref(o,i-1);
a:=(c-ref(o,i-1)-ref(c,i)+ref(o,2*i-1))/i;
if a>temp then //保存最大值以及对应的t值
begin
temp:=a;
j:=i;
end
end

max_v:temp;//最大值
最小值的记录，模仿最大值的方式处理下就行了。