这个交易系统怎么写？

多头开仓：收盘价大于20日均线买入3000股
多头卖出：收盘价小于20日均线卖出3000股
资金投入：100万元
以下的代码老是不对，全部都是买入，没有卖出，错误可能是由于SubtractSeries返回的是句柄，但我不知道怎么修改。

var Bar,MA: integer;
PlotSeries( EMASeries(#Close,20), 0, #Blue, #Thick );
SetPositionSize(5000);
for Bar := 20 to BarCount - 1 do
begin
ma:=EMASeries(#Close,20);
if SubtractSeries(#Close,ma)>0 then
BuyAtClose(Bar,'')
else begin
SellAtClose(Bar,3000,'');
end;
end;
EnableTradeNotes(false,true,true);