程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
! R. h: w! F4 H1 c4 e% L        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
- V, q3 k: |9 w0 l        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
# R4 H# b/ v4 [                        print "No";
  N/ ^' K# S+ ^. n                else
) f9 T8 I' k# t; o. I                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
4 B" a" O  h/ i0 N# z7 i2 l4 b        for j:=1 to Number_Of_Machine loop
+ \% U7 R9 `6 h; a2 j                if j<i then
/ N; W5 l. e  j2 A5 ]* s3 r  y; }' H8 d                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
4 e2 S; L/ X- b                        if j=i then
1 T  `6 Y* Q' \% U                                D_From_To_Chart[j,i]:=0;
                        else
- R6 T8 V# G- `7 Y: E. a) O                                if D_From_To_Chart[j,i]<=0 then
) c8 N2 _8 M" V8 r, g0 \  O4 b                                        messageBox("distence<=0...,",50,13);
* a3 K3 v% ~& H+ k) A3 h: X: K5 g                                        EventController.stop;
                                end;
                        end;
. y" t( @2 k  _- s+ L                end;
& J; I& C5 Y; `, U/ Q        next;
) I  k" X. E& h# wnext;

end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
2 Y1 j& N( I" V        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
) p4 Q$ u5 O! c        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
$ F9 X# X; p0 d( d                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
" W3 I% B6 M% M8 F/ k7 R                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
6 H5 [) A8 l0 R8 g5 J) c9 n: e3 [                end;
& [) v; S) e1 F& z7 w        next;
( `9 L4 I! j' `1 W+ r0 q0 ~        MachineName :=sprint("M",Rows);
        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]);
        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
' C* P" G' i9 M" [* y. b5 F. _        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
0 d5 k' D8 H7 h  C        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]);
1 n% L3 ~+ Q0 ], I                 Buf.Name :=BufName;
8 c0 V5 ?) {4 O. f4 W        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
( ?+ Z, x# h& W        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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