程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
2 l4 \; c1 P' e8 p. _; m4 Iis
& C% ]- |7 M+ ~- `3 B0 s) f3 H        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
! o! [3 P* L  ^% ], w1 r        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
+ Q; a4 l; T/ J; W/ }/ u; n9 l                        print "Yes";
6 n7 n& x. ~/ e5 y4 s$ m                when 32 then
                        print "No";
                else
* N0 ]3 G3 y) }% Q* P$ R) _4 t: m                        print "Cancel";
+ R2 n: p: j6 r) e  X- |6 q' e                end;
        EventController.stop;
end;
8 r- p7 n. _) B9 u  T$ P8 V6 Y& LPartsTable.delete;
! J! |' P2 z3 `9 }, [6 _# Zfor i:=1 to Number_Of_Machine loop
" @9 l% W6 M: X        for j:=1 to Number_Of_Machine loop
" k. J% x5 y3 }3 k                if j<i then
' X  E& z! T  R1 n! V                        if D_From_To_Chart[j,i]<=0 then
- q* A. y* E, l! x                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
  T3 A: ]0 K6 B                        end;
9 v: r9 l% O8 c# X5 a1 }                else
2 n# e3 U. G/ P% D, V  Q; N) v                        if j=i then
: y7 q- k+ r6 a. `& P                                D_From_To_Chart[j,i]:=0;
: A, w; `9 m% c8 D& M& q                        else
; ]5 @/ Y$ C8 b                                if D_From_To_Chart[j,i]<=0 then
  Q( i2 I9 g4 m' L                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
5 m& P( w4 B/ ~5 G+ F                        end;
                end;
! A7 n) H, _, K5 E3 }' W( u& P8 Q        next;
next;
! x# D, w/ X4 {9 j* c
end;

4 ~# a$ P! N& z6 c  p    Lines :=0;
" S- ?* ^. \( \- p6 I( ^        for i:1 to Number_Of_Machine loop
8 N0 E, u; Z; ^/ ?( Q        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
2 u" J/ }* C$ K( K  Q        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
2 c; F7 T/ |$ B& T                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
$ ^- M* X! m$ j" m3 D; t                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
2 l" N7 A/ h2 C4 X! a6 L        next;
        MachineName :=sprint("M",Rows);
) Y. I& {" _. Y8 [" N* A        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]);
$ ~9 N3 g! r# L        Machine.Name :=MachineName;
) W7 y; i$ u* R4 M* M        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
& n/ s* i/ j" g. M1 d) v        Machine.ExitCtrl :=ref(Leave);
       
        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]);
                Buf.Name :=BufName;
! y- `' s! O1 S# b# n- u        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
( w6 N9 G; k# w        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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