程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
+ `+ e7 l  p% ~& E" u        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
: y0 a* r8 s1 Y. w) ~do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
* Z6 h( ^/ P* ?% q                when 16 then
7 ~( l6 ]% o8 y5 K1 H, q% E2 O  L                        print "Yes";
                when 32 then
, i' ?9 F9 x! r( A/ }                        print "No";
                else
                        print "Cancel";
! L( o# X+ q* P0 T, t# q0 ^3 o0 N                end;
* [  s; R' Z1 J( |, N        EventController.stop;
end;
8 }  a. l# Q/ d: D5 m; _PartsTable.delete;
for i:=1 to Number_Of_Machine loop
5 X* P" k( z$ J  T$ A        for j:=1 to Number_Of_Machine loop
! n" h- l7 M* g                if j<i then
" ?) S" R7 V' ~0 x3 v  p                        if D_From_To_Chart[j,i]<=0 then
, ^! _2 L" ?) |. B8 ?9 C+ X                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
9 j8 k3 ?9 Q& X; u% }1 f8 ?                else
; W; g8 C* J9 y6 A# N                        if j=i then
: Y. _' c+ k7 O8 S" U' ]) K                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
6 T  I& y3 e5 k+ J4 M" A                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
& y1 m1 @- |6 ]* F( p                end;
        next;
next;
( e, b7 k, E% [* z8 R; _
  P2 V0 K; @6 O  p, |0 Nend;
; ~) f: N& F7 c0 H
5 t/ c$ G) H4 X' S8 z0 F; e    Lines :=0;
        for i:1 to Number_Of_Machine loop
  L! \9 F( |/ E9 C        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
3 {! g/ k) k/ |, X- C) `- \                            Lines :=Lines+1;
! d2 @4 B0 N( u/ ~                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
5 Y" ]& X5 C1 J                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
2 h1 I$ r5 d! L5 \! R                end;
        next;
' h$ H3 J# C5 b, O+ a2 V$ N9 ]; X6 o- i        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]);
" T9 G3 C+ D2 q  l; J; ]4 A7 P        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
# t$ h! I  a/ b; ]5 E8 [' N, e        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
# A8 F" ~' A$ y' E0 t. y- P* G; R        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;
& ?4 v; d0 L" @        Buf.Capacity :=5000;
8 p. `& g3 m& q! W        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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