程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
) l- i9 x' n' \. s( x* K% {0 c! Ddo
) S/ t9 e3 |. j        if Number_Of_Machine/=D_From_To_Chart.YDim then
: J9 A! M  W, {+ @7 i                inspect messageBox("Number Wrong...,",50,13)
4 r( `" u9 z8 R7 x; N% w$ K                when 16 then
2 F# K, N3 t9 w  ]/ m  x' k                        print "Yes";
6 d! U4 Z4 n- m# `/ l* Z                when 32 then
1 s# K- D( F) b: a4 l; S                        print "No";
+ B" o3 b4 P+ c7 X2 T0 H                else
                        print "Cancel";
- E! l5 H- k  @/ i" C                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
3 f: _7 F; m; K) E% h; ~( q, c        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
7 X0 I( x5 i# W  t- D2 t                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
6 ^/ w8 x1 t8 F8 E4 K8 O                else
# _+ h9 l4 J. B9 s8 M: o) r                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
4 R/ r3 T( n/ z% Z3 e& _# P9 b                                end;
8 o2 E$ D; l5 B) }& a                        end;
* n# s8 C  G. m! [7 @5 x  Z# Q                end;
        next;
& U3 |/ c6 n% j1 R: |1 |& Nnext;

0 \1 B/ Y2 z& B3 p$ s5 Gend;
" ^' E4 ?8 n1 z6 r: ?; _5 v/ x. Q
) ?" x, G5 v1 P$ e    Lines :=0;
        for i:1 to Number_Of_Machine loop
8 n* W) W2 e& N9 b6 k        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
1 m9 p& d7 e1 M4 E/ h$ L  G0 g4 G" i                            Lines :=Lines+1;
! p; z& _8 {+ f! \0 O                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
9 R6 B' v" l& Q3 u6 S- |% o3 A                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
" I* l+ S$ Y7 {  D& J/ B                        PartsTable[3,Lines]:=sprint("Parts");
7 B) R% o0 N/ i% O                        PartsTable[5,Lines]:=Rows;
: `$ z; H5 \9 i& w0 g5 ]                        PartsTable[6,Lines]:=j;
/ [" w4 H2 I  Y) f                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]);
" D7 {" f: A- O' x        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
% _9 E  V) a0 i        Machine.label :=sprint("machine_",Rows);
" P4 J% c' q  Z4 I        Machine.ExitCtrl :=ref(Leave);
7 A: Q$ m$ V) v, J6 {% w& y       
/ }# z( @9 n9 C6 r        BufName :=sprint("BF",Rows);
6 b- w) u3 {$ Q5 I$ z        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]);
$ M/ z# I: [! u" P' c% R- h( D                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
2 b  ^* _' f( a! S  J3 Q        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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