主题：帮我把这个改写一下，我搞了几天也改不来，

请教：帮我把这个改写一下，我搞了几天也改不来，
input:n(7,2,100);
fc:=CLOSE;
mhn:=MA(HIGH,n);
mln:=MA(LOW,n);
hld[n]:=0;
for i=n+1 to DATACOUNT do begin
IF fc[i]>mhn[i-1] then
hld[i]:=1
else IF fc[i]<mln[i-1] then
hld[i]:=-1;
else
hld[i]:=hld[i-1];
end;