程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
3 \7 o; u# ^8 g9 G* ^3 s        if Number_Of_Machine/=D_From_To_Chart.YDim then
3 T) i1 W8 m' [1 O& O8 j                inspect messageBox("Number Wrong...,",50,13)
6 H! U1 S, n9 v6 x                when 16 then
                        print "Yes";
                when 32 then
) V- o$ F" n" i( u' n2 y                        print "No";
" C9 t$ ^* j2 j! Q# ?7 w+ m                else
. d' [7 y: }8 _" \                        print "Cancel";
                end;
8 C1 B1 |# k2 _0 e0 j0 [3 _        EventController.stop;
0 U0 ?6 b8 d* B7 F8 n/ @end;
PartsTable.delete;
7 ], X2 {  _1 a3 l- W  b# i, d+ afor i:=1 to Number_Of_Machine loop
/ e% g3 R. g% g0 v! n1 w        for j:=1 to Number_Of_Machine loop
                if j<i then
& k, E6 Z: `7 K6 g( m0 i) w                        if D_From_To_Chart[j,i]<=0 then
+ c& I0 s2 q# ?* ~6 ~                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
8 u. \5 z2 k$ j! r* G! I: _                else
$ T$ z& o; Y5 ^. N$ v2 O3 H4 u                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
" j6 M6 j- x" u+ g* W; `                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
! `% g0 b  U5 F, `3 f                                        EventController.stop;
2 \* G: Z  P; U5 t                                end;
                        end;
                end;
# J3 V3 j8 C! b5 ^$ i        next;
9 t( V/ G" b4 f: G4 |% ]next;

" @; g- N8 L* wend;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
+ i  k) b1 Y; v- v) \        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
' [% \4 e& N! [2 T& e, `                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
4 @# t3 Q4 v' B  g0 a1 }# g                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
, F' f5 Q; H( e; _8 n  T  v        MachineName :=sprint("M",Rows);
4 r: r$ h* l6 d# ]        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]);
3 L# p2 R3 E5 Y( w        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
  a, n( j# {+ v- D! A        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
/ L0 B- o/ A* ~6 \& ?4 q       
        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]);
, N, W2 X- ?) |9 j                 Buf.Name :=BufName;
- J/ b: r/ O7 b- P        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
& O& O; L, ~- q. }$ X        .MaterialFlow.Connector.connect(Buf,Machine);
5 i* o6 u& j( P% ?% c9 ?2 J; hnext;
end;

五五

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

wudi

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