variable: 
高点(0),低点(0),BarPosK(0);
ma5:=ma(close, 5);
ma10:=ma(close, 10);
金叉=Cross(ma5,ma10);
k1:DrawText(金叉, close, '金叉');
if 金叉 then begin
  for i=BarPosk to barpos-1 do begin
    高点1[BarPos-i] = 高点;
        低点1[BarPos-i] = 低点;
  end
  barposk = BarPos;
  高点 = high;
  低点 = low;
end else begin
  if high > 高点 then 高点 = high;
  if low< 低点 then 低点 = low;
end
高点1:高点;
低点1:低点; 
书写上有点小问题,修改下就行