不知道問題出在哪?

XA:=DAY>=15 AND DAY<=21;
XB:=WEEKDAY=3;

YC:=DATE<>980819;
XC:=DATE=990220 OR DATE=1040127;
XD:=XC;

XE:=(XA=1 AND XB=1 AND YC=1) OR (XC=1);
IF XE=0 THEN EXIT;

FOR I=1 TO 30 DO Begin
XA1:=REFX(DAY,I)>=15 AND REFX(DAY,I)<=21;
XB1:=WEEKDAY=3;

YC1:=DATE<>980819;
XC1:=DATE=990220 OR DATE=1040127;
IF XD=1 THEN XC1:=0;

XE1:=(XA1=1 AND XB1=1 AND YC1=1) OR (XC1=1);
IF XE1=1 THEN Break;
End;

IF XE=0 THEN EXIT;
IF XD=1 THEN XC1:=0;
IF XE1=1 THEN Break;

就邏輯來看這三行是錯的
XE 和 XD 和 XE1 均為數列
是不能直接用 IF .... THEN 比較的

要用下列形式存取
IF XE[1]=0 THEN.....
IF XE[n]=0 THEN.....