程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
  m4 b; m- T& ]2 T8 i        i,j,Rows,Lines:integer;
# ^: w7 q% F. W1 U* s        MachineName,BufName:string;
0 j! c5 U( i% U8 l: t7 W        Machine,Buf:object;
. M9 t8 {; W5 s5 K9 ^do
2 X6 ]: e( D. v5 `) d! \        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
0 d& d  E$ K3 A/ L8 f% @( a9 q                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
4 |, J' k6 i( T                else
                        print "Cancel";
. V2 Y. q1 `( D                end;
        EventController.stop;
end;
PartsTable.delete;
5 ~9 W, F9 h& P6 Z- _for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
0 A( W0 B# L* K$ P1 b: E6 W+ n                if j<i then
; \6 h3 a  r  S2 K/ S                        if D_From_To_Chart[j,i]<=0 then
. Z! a" ]; c! R' M4 D                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
8 j0 {6 g. a0 @                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
+ Y/ f; y' V% \3 B. a* }( I                                if D_From_To_Chart[j,i]<=0 then
7 C3 ?1 h% C; i8 Y3 W3 @7 t! Q                                        messageBox("distence<=0...,",50,13);
, o# O  l( ]3 R* Y2 Z* j                                        EventController.stop;
0 P& n! P" l$ H( \                                end;
- W( P: \2 O/ V, o4 \  b0 d) D                        end;
                end;
        next;
next;
" p2 i  ^$ R" U. g1 b% F3 g
* q! d1 P& s$ ^1 bend;
4 z9 {( {" x$ m& B- v
0 Z6 _$ i; G0 S) Q9 U5 u' j, i: U    Lines :=0;
% h% u2 r: |* I+ ^/ K7 `        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
- Z6 t& ~' B8 R7 C- }        MachineSequence[2,i]:=Rows;
3 r* F' c# G% q8 X7 L            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"));
; q+ X2 K0 ?# U0 \( O2 E                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
! k) R3 D- ~( |1 o9 `2 C4 j! T4 t                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
; ~, i! |& S; _0 {- L  C. O& z                end;
        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]);
& N( j  M1 p: I: M' o' l        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
6 |% v9 C6 i( C8 W1 X        Machine.ExitCtrl :=ref(Leave);
       
- h" M0 }2 d) ]5 t; G$ R- A        BufName :=sprint("BF",Rows);
( C' M3 i* X5 j, g' ^. 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]);
                Buf.Name :=BufName;
* T2 a- y9 l, v        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
' }4 n  K  @  T/ z2 |- M        .MaterialFlow.Connector.connect(Buf,Machine);
next;
  Z2 h' ?1 H4 cend;
* _; A) b; j  ^8 l. o3 A

五五

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

wudi

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