程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
3 H1 M" l- B$ o* F        Machine,Buf:object;
do
5 |. u; t6 J) s  W: J! ^& B        if Number_Of_Machine/=D_From_To_Chart.YDim then
' w( x7 r, K: M8 |' M8 e+ I6 M) O                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
* u4 T# m9 k6 d3 Z# u$ P+ V                        print "Yes";
                when 32 then
                        print "No";
! `8 q& c1 h, c( w/ x                else
' R; v& h$ [# y5 l/ {: A                        print "Cancel";
                end;
# `: b5 `9 A6 _+ R$ G        EventController.stop;
end;
PartsTable.delete;
* W7 A9 i. n" S2 E3 v  n& Y8 q+ d4 ufor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
; Q( l6 r2 I! i& Z9 C2 N                        if D_From_To_Chart[j,i]<=0 then
6 G# V+ S2 h5 g0 B/ _) G& f7 S                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
- P) j5 L% `$ u+ j                        end;
                else
* f' J0 a* @& i5 O; }                        if j=i then
                                D_From_To_Chart[j,i]:=0;
7 B. W4 G! [* s2 _$ n                        else
                                if D_From_To_Chart[j,i]<=0 then
- \+ b& l0 j  n3 e2 R                                        messageBox("distence<=0...,",50,13);
; a( i: p$ j3 G" a# ?: j* T                                        EventController.stop;
                                end;
$ ]) M! ~7 B9 c, E& ]5 q6 D                        end;
0 v$ O& I+ I) n, q1 a- S5 M                end;
        next;
next;
1 A0 a+ X' L7 Q0 a
end;
" U- C6 V, @, o
    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
9 `: ~% p3 V7 U- W# x1 ~9 f                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
( O- }. t, h# v" [                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
$ w) |* M8 v  D% P2 c! \                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
) C# x( B2 Y9 R( [                end;
        next;
        MachineName :=sprint("M",Rows);
( J; b+ t4 P" u6 h8 u        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]);
* ~& o8 ~; F! h4 P7 s        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
7 _8 j% }, _8 M; f& u        Machine.label :=sprint("machine_",Rows);
! m& f; c# C" P' ?: z: c3 |) z- C3 e( v        Machine.ExitCtrl :=ref(Leave);
: b; p' o1 ]' ~       
        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]);
, p& o: N& q; r: p                 Buf.Name :=BufName;
0 A9 x0 c* E" W- }0 V        Buf.Capacity :=5000;
  }- R0 D5 M* z1 b3 T* D( b( Q5 `0 L        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
* H# O& C5 V- \$ A7 k& E  l/ E$ L3 S: Mend;

五五

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

wudi

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