程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
2 M  H" Q4 p1 M3 P        i,j,Rows,Lines:integer;
2 U* g! q  q" ?$ ]        MachineName,BufName:string;
! }# v0 v- K, {9 a8 z' I        Machine,Buf:object;
- Q3 @- u- v+ L% hdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
3 x( ~, C: e& b9 T/ I                inspect messageBox("Number Wrong...,",50,13)
# i- ^! s9 ?4 F9 w                when 16 then
                        print "Yes";
* A! \% i) S: C) o                when 32 then
6 `! W: b+ c, W0 T                        print "No";
                else
                        print "Cancel";
                end;
# y9 X1 N6 e. }3 g2 X5 a8 a        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
, x/ o& t6 M# d+ \                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
8 E2 @2 W" S, p' \1 u                        end;
0 G; Z( x: F9 O/ b) z                else
/ o% l+ R$ O8 a% y                        if j=i then
, ]/ d. a) I) l8 _2 P7 ]6 |                                D_From_To_Chart[j,i]:=0;
                        else
0 o0 O# T+ m+ M3 I8 b4 ?1 Q7 y                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
1 a6 y+ H) g1 \3 c1 I" i0 I                                        EventController.stop;
                                end;
                        end;
                end;
        next;
, X3 e& k0 c3 }- f* g" anext;

3 P" k4 j- K& P9 Rend;

4 [% Z8 w, N' m1 ?; |    Lines :=0;
8 p& T$ Q% F2 i        for i:1 to Number_Of_Machine loop
0 `& N0 x1 W. Q: l. ?        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
# i. ]; _0 H5 t        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
( P: x1 W( o9 m$ P& O  N                    if W_From_To_Chart[j,Rows]>0 then
8 H/ N+ i. a& E4 M( k9 N! i+ I2 A1 B0 O                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
/ M6 b8 z) m6 i# {                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
/ i) s4 {2 y" F/ m0 @. z/ k                end;
        next;
        MachineName :=sprint("M",Rows);
) O$ k0 S5 a4 E4 c3 B        Machine:=.MaterialFlow.SingleProc.createObject(current,X_pos_init+D_From_To_Chart[Number_Of_Machine+1,i],Y_pos_init+D_From_To_Chart[Number_Of_Machine+2,i]);
* w, a+ C' A& K' h        Machine.Name :=MachineName;
' v" P, T3 G, E1 {8 Z        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
1 V8 P% d5 g; ?$ T* Q$ [       
        BufName :=sprint("BF",Rows);
        Buf:=.MaterialFlow.Buffer.createObject(current,X_pos_init+D_From_To_Chart[Number_Of_Machine+1,i]-35,Y_pos_init+D_From_To_Chart[Number_Of_Machine+2,i]);
( S6 b; q2 D* M, f" @8 W                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
) B" P$ ]9 @$ a' O+ q9 [        .MaterialFlow.Connector.connect(Buf,Machine);
next;
$ {4 F* @+ R$ o- ^end;

五五

end 数量不对 且后面两个for循环 赋值没有等号。。。

wudi

老师，我再问一下，哪里的end数量不对啊，我是新手