程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
% A* b; }( x8 a& G9 X7 Gis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
3 D4 j- K1 t: |+ o0 U        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
  t& ]0 F4 [% \+ E                inspect messageBox("Number Wrong...,",50,13)
, i+ ~  m+ |  I                when 16 then
                        print "Yes";
                when 32 then
( n" O9 s( Q+ e+ ?6 \+ `                        print "No";
- R" U! P/ c7 c* O                else
                        print "Cancel";
                end;
. Y! q6 ~) D$ n6 d9 j5 t/ D9 P        EventController.stop;
/ _% M/ j2 y. a0 }end;
PartsTable.delete;
4 j1 f5 V0 G: T: k; X% r( Ifor i:=1 to Number_Of_Machine loop
1 @, W' r0 x/ c5 `/ W  w        for j:=1 to Number_Of_Machine loop
9 ~& }! U5 H! [+ S3 Z                if j<i then
# v7 ^! L5 S- O. y3 S6 Q8 Q  `                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
+ J( l; G7 e4 a/ D  K$ s                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
0 z) M" k% g/ [- U2 x                                if D_From_To_Chart[j,i]<=0 then
& s( C1 C  T+ D0 o5 D& U                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
' y2 v0 q: X3 J! l3 u                        end;
7 P4 w7 @  E0 C; D* P- N2 C                end;
        next;
5 ]/ K+ T" s9 y  E  znext;
$ k5 g+ m* \" g; w' ~) v
end;
* [" S  ?7 Q3 S# p: v5 K
; n+ f3 L) M0 K  I! r: i* Y. f    Lines :=0;
9 w3 ]5 y, E5 v/ G, P        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
9 d$ l0 u; Q: [        MachineSequence[2,i]:=Rows;
2 C/ |, C& H4 k            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
; F& Y9 F: ^; s  l7 i' n, {                            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");
                        PartsTable[5,Lines]:=Rows;
( t0 p$ o3 ~( }; ^# r5 A                        PartsTable[6,Lines]:=j;
                end;
        next;
        MachineName :=sprint("M",Rows);
0 S+ j# o7 m, Q5 S2 E        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]);
  o. i# i$ Y; V( r. z. h6 U        Machine.Name :=MachineName;
& U: y8 M2 e8 `! C7 W        Machine.ProcTime :=5;
- l& D. W* K7 R2 h% `0 b: g        Machine.label :=sprint("machine_",Rows);
/ r1 [1 s6 \# \1 ?) z7 g        Machine.ExitCtrl :=ref(Leave);
, U* c' t7 z' C* F& D& \       
6 ]" ~9 ~' _4 e9 {- G, @        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]);
& }9 l! g: e5 ?- p) u: P$ w" Q3 B                 Buf.Name :=BufName;
" h5 u  E( _0 p$ M( W  }. t& l% p        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
8 I% ]3 d0 Y( B; I" T. f        .MaterialFlow.Connector.connect(Buf,Machine);
7 ^4 I8 G! y/ p* ]5 p; A1 t/ y8 jnext;
end;

五五

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

wudi

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