主题：请教

大体如下,供您参考.

variable:firhigh[100]=0,scdhigh[100]=0;
........
for i=2 to datacount do
    begin

    if cc[i]>=cc[i+1] and cc[i]>cc[i-1] then //其中cc为两合约的价差
       begin
       for m=1 to i do
            begin
            firhigh[m]:=cc[i];//记录1阶高点
   
            if m<3 then exit;
            if m>=3 and firhigh[m-1]>=firhigh[m] and firhigh[m-1]<firhigh[m-2] then
            for n=1 to m do
                 begin
                 scdhigh[n]:=firhigh[m-1];//记录2阶高点
                 end
            end
     end
 end