程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
2 @! n! w9 Q7 J. y* U! A* Nis
8 f2 U9 V8 R- C1 s# A8 _. c; q        i,j,Rows,Lines:integer;
" U1 b2 h- m2 [- a" O, y' g2 ~        MachineName,BufName:string;
4 W+ f/ V" q4 ]) o1 a! J6 ~- ~        Machine,Buf:object;
* K1 a' K/ m( ^! h7 W  ]do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
: V  L/ o, J, Q) P3 F                inspect messageBox("Number Wrong...,",50,13)
; r4 E( \5 [6 I8 W                when 16 then
+ B" w. l) `9 ]3 T) V5 P9 P                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
4 S3 s1 x8 ~: l: I0 m9 z                end;
        EventController.stop;
- O0 H: W7 C2 send;
PartsTable.delete;
8 f+ E: V8 n1 k/ S. g" z/ ^for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
6 f, o% k5 Z  h                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
5 e4 V  d/ x# @" \1 _, `                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
* ]2 Q8 R0 F( \: x3 h                        end;
                else
) D! e; `- k) J                        if j=i then
1 C9 e. V" n) _6 z0 c$ G% t                                D_From_To_Chart[j,i]:=0;
                        else
* z8 N" u* ?4 s* T- K' @# K# ^                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
( W4 K0 M- K8 _; x, G                                        EventController.stop;
                                end;
, ]7 n, m- |1 u3 Y( U+ |                        end;
; e* [% ^9 `" F1 ?! |' r5 @8 d6 O                end;
. x7 ^9 p; [( [& J4 D% @& j9 K" x        next;
, O7 g7 C6 `  B+ B% B2 inext;

end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
/ d2 ]* g1 e4 X. m        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
) ?" x, n6 \$ t, Q            for j:1 to Number_Of_Machine loop
4 L; o! Y  V/ P                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
; p/ G3 N; ]" p5 I- I( Z6 }                        PartsTable[6,Lines]:=j;
( X7 c9 D3 K" M' j  G                end;
" @; K8 b) O* x. S% l' p! O        next;
        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]);
* g0 i9 L0 Q$ p        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
' e+ ~0 |" p5 G        Machine.ExitCtrl :=ref(Leave);
       
1 E' t. C, |& A+ B3 D        BufName :=sprint("BF",Rows);
/ W: o8 P$ O; w# m: f& h        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]);
3 _) L9 y3 r& c4 ~                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
* Z, O- _0 k: n: h& O7 |5 L+ ~        Buf.ProcTime :=0;
. ^+ K4 l6 b1 D3 e" a        .MaterialFlow.Connector.connect(Buf,Machine);
next;
, ^+ M! F6 m! t) \/ S; `3 y, ]end;

五五

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

wudi

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