程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
" p4 l* _6 O/ ^+ ?3 m' T' W        Machine,Buf:object;
do
8 B# ~/ ]6 a; w* S' g  a7 _        if Number_Of_Machine/=D_From_To_Chart.YDim then
) j# l; s" I0 m4 X$ l! F: _                inspect messageBox("Number Wrong...,",50,13)
* b& |% d7 f  Z" j: n7 {                when 16 then
9 I: f( K3 S  P/ C: k: ~! q+ p3 Z3 B& x  \                        print "Yes";
                when 32 then
                        print "No";
+ ?& x- C% i3 o) Q5 J- M  }5 b% x+ T- C                else
                        print "Cancel";
4 n9 b3 h8 F. \8 d5 o  [7 ^                end;
4 p3 @# G. J$ D' i! N2 }        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
) B6 @+ [% \' F! Z* F        for j:=1 to Number_Of_Machine loop
                if j<i then
4 t9 y* n, H' l                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
8 x  _! V) W) I/ c. V                        end;
                else
9 u( B" m% P& j                        if j=i then
                                D_From_To_Chart[j,i]:=0;
: [4 n. P  N- L1 v( w( N( v                        else
* h: p3 j1 ?7 z+ a% j                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
# j& P' ]- t6 z. k5 z: y                                        EventController.stop;
                                end;
3 W  T0 F/ Y6 y1 D! H* p. j                        end;
                end;
        next;
next;

end;
; c0 S' _3 o4 }; z$ \" F
) D( `- p# z& A; r    Lines :=0;
        for i:1 to Number_Of_Machine loop
9 U# F& W# r9 g" g5 Q" b9 I        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
1 b( R+ m4 Q# v5 T8 e, g        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
- t/ l- M# r& U+ Y0 Y4 _                    if W_From_To_Chart[j,Rows]>0 then
0 i* Q5 h* [! Y$ u, U( S7 R% T, y                            Lines :=Lines+1;
6 M8 A/ ~: Y4 X, k; [9 O                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
' H8 A$ Z/ b  ^4 y$ Q                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
. G. |" b1 A9 [+ s        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]);
9 \( r/ g% f9 W' C        Machine.Name :=MachineName;
. |5 }9 {% o+ g" c) _        Machine.ProcTime :=5;
6 p) _; R; H$ q0 Z        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
7 C1 S. l8 r# S  B       
7 }; S, }; ~, F; u8 ?        BufName :=sprint("BF",Rows);
. P6 v" c" A8 V* v; X' s0 B/ S        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;
6 D9 k" I* P% n' b8 g( c        Buf.Capacity :=5000;
" W( N" A) M  R1 c+ @1 f        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
: r# p, K. W. O* ?! I

五五

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

wudi

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