程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
" K+ Y: o- ]: f; W$ Cis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
* T: f! I/ a; `. o6 @5 x* W1 zdo
+ ^( e. u5 O5 L' l- m        if Number_Of_Machine/=D_From_To_Chart.YDim then
, o) C4 u9 k+ k- X1 D/ @( d                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
$ u: t% z: {, P; K                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
4 n' R: N0 S- B2 a0 E0 c                end;
5 H3 S/ K2 L8 N- K( m        EventController.stop;
end;
PartsTable.delete;
5 |9 V: ]) j% m% ]: K1 Ofor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
. i- l0 M& |9 b% {" J                        end;
- _* o; H  v, z+ Q                else
2 e1 }- ]' t' ]# n( }                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
! w- I9 x0 a! i) _) c                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
; y- p2 W$ b6 [2 [  O! T( l                end;
! j5 u; B& O! @2 Y- V1 H# D, A: ]$ R        next;
next;
% j. Z9 I$ z, _* U! p
end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
8 ~( L7 A. B0 @1 a- I: M        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
* v) ]: @) E+ Y# Y6 y1 M3 [        MachineSequence[2,i]:=Rows;
* z$ F8 e# `. s: s: o            for j:1 to Number_Of_Machine loop
- u) n1 Y) }  v) G) n# j* m                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
/ }, S' g% ]% n6 ^% x* x                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
) g) p7 {1 N1 n, O7 Z6 l                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
* O1 ^& G( ?4 j- z" b. x, v                        PartsTable[5,Lines]:=Rows;
2 Y) t0 q5 ~  H( d3 U" N. |, W9 h                        PartsTable[6,Lines]:=j;
* `) c& J8 Z7 C8 `                end;
9 I, Q) X  q$ S! |9 Q        next;
0 O7 G# N- k$ j; P0 ?        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]);
        Machine.Name :=MachineName;
$ B8 ?- r$ s! [, W% b7 l- q7 K        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
: k  U) p( \* d        Machine.ExitCtrl :=ref(Leave);
' z+ Y2 ~! F! r" [% B  k% v       
        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]);
' Y/ z4 ~  n1 k1 P8 h2 W, R                 Buf.Name :=BufName;
# Y3 m% t& u- I- p        Buf.Capacity :=5000;
3 R9 D& C& o5 R' h3 Z        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
: r' m9 `( [3 `3 G  g+ U9 `next;
end;

五五

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

wudi

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