這一單盈利了，下一單就不開(kāi)倉(cāng)，請(qǐng)問(wèn)怎么寫(xiě)？　[金字塔]

variable:n=0;

if 平倉(cāng)條件 and 持倉(cāng)判斷 then begin

   平倉(cāng)語(yǔ)句;

    if numprofit(1)>0 then n:=1;

end

if 開(kāi)倉(cāng)條件 and 持倉(cāng)判斷  and n=1 then begin

   n:=0;

end

if 開(kāi)倉(cāng)條件 and 持倉(cāng)判斷 and n=0 then begin

    開(kāi)倉(cāng)語(yǔ)句;

end