variable:a=0;
if con1 and holding=0 then beign
buy(1,1,market);
a:=h;
end
if h>a then sell(holding>0,0,market);
测试少个;号
语句未尾缺少分号
variable:a=0;
con1:=1;
if con1 and holding=0 then
begin
buy(1,1,market);
a:=h;
end
if h>a then sell(holding>0,0,market);