N:=2250;

variable:kk=0;

if kk=0 and c<=2250 then begin

buy(1,1,market);

kk:=1;

end

if kk=1 and c<=2250-50 then begin

buy(1,1,market);

kk:=2;

end

if kk=1 and c<=2250-50*2 then begin

buy(1,1,market);

kk:=3;

end

.

.

.

.

..

.

一直寫到打算降到多少個50點

if c>=enterprice+50*mindiff then begin

sell(1,1,market);

end