主题：请教一下，下面这个公式错在哪？

为何FangXiang[i]无法被赋值为0？

FangXiang:=C;
for i=1 to datacount do begin
  if mod(i,5)=0 then begin
    if mod(i/5,2)=0 then begin
     fangxiang[i]:=-1;
    end;
    if mod(i/5,2)=1 then begin
    fangxiang[i]:=1;
    end;
  end;
  else     FangXiang[i]=0;
end;