程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
6 x7 y9 j- T3 w3 e) h        Machine,Buf:object;
do
8 J8 ~. w0 Z0 v        if Number_Of_Machine/=D_From_To_Chart.YDim then
" ~9 S7 A* x. W& c2 a+ k* s: x                inspect messageBox("Number Wrong...,",50,13)
4 z6 h' T) i4 m* |                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
* e% A' a& K. h                else
                        print "Cancel";
                end;
        EventController.stop;
2 F$ j) _* v5 T( Y9 oend;
$ ~7 B& _8 S- K) `+ I+ ?! W( ^+ nPartsTable.delete;
for i:=1 to Number_Of_Machine loop
$ {2 s# k$ c, }. Q6 F0 M% T$ c4 R        for j:=1 to Number_Of_Machine loop
" U* ~. Q/ W$ A' G5 ~5 E                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
, U& U6 Q, g/ ?$ G/ q: H                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
  J3 B9 j" J- f                        end;
6 p. n2 {$ A; T) }% a                else
                        if j=i then
, s; i+ n- o4 ?3 q1 ]                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
                end;
; M& k3 T0 f6 C        next;
next;
; ?; y% ]+ u/ l) \, m6 }
end;
, q9 @" y6 g" l, l2 A
) J+ Z6 d- ]4 s0 Z4 P/ E) n0 b# n, [    Lines :=0;
- w* r: V( t$ B* W( e        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
, \7 Y/ W/ d! n8 g8 Z" Z+ S- Q5 p* v        MachineSequence[2,i]:=Rows;
& T1 t3 d# f: V            for j:1 to Number_Of_Machine loop
5 e5 [( O8 \& ~# @1 {                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
7 h5 ?8 X: o' D( o% f                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
5 u1 C0 x. F+ Z" O0 m8 y7 `5 f                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
0 {$ `; X. k- W, Z! _# p. o                        PartsTable[3,Lines]:=sprint("Parts");
9 M+ V7 o$ }8 v- M                        PartsTable[5,Lines]:=Rows;
$ \% G1 z) y, s; [9 T                        PartsTable[6,Lines]:=j;
$ O4 p% x; i1 r: T                end;
2 t/ Z4 K. J/ t+ X7 t) Q        next;
        MachineName :=sprint("M",Rows);
. t: [8 x$ K$ j$ B4 G  q8 P        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]);
! l* R+ Z0 C% M, {7 q& o        Machine.Name :=MachineName;
8 X( D3 c' |) l' }4 |+ y6 s. |6 X7 [+ T) s        Machine.ProcTime :=5;
( f, x" I& `7 z6 \( ^! p8 w4 i        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
$ ]3 V, Q6 M% Y0 }( q4 e% j       
6 j0 t" q8 ?) G. 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]);
                Buf.Name :=BufName;
        Buf.Capacity :=5000;
2 B. N' [: a9 X" n( l- l        Buf.ProcTime :=0;
, @7 a; O( ^: R1 r# Y0 l4 r& e  X3 `  H7 Z        .MaterialFlow.Connector.connect(Buf,Machine);
0 B! v% f  L' xnext;
end;

五五

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

wudi

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