求按以下文字编写程序化模型！非常感谢~　[金字塔]

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