程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
& r/ O4 s, n) p9 y3 C1 c  q3 ]        MachineName,BufName:string;
        Machine,Buf:object;
do
/ a8 |1 I6 E6 H9 J: p" j        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
, c9 z$ U4 z9 R4 `                when 16 then
                        print "Yes";
                when 32 then
# k9 Q7 ]$ t2 Z- }( }$ N                        print "No";
# g! H+ {, e- v6 ?                else
/ v0 a' E! e9 l. G5 K6 H                        print "Cancel";
6 U% i( n# K# {; O* o                end;
        EventController.stop;
end;
' M2 |6 B6 N7 b1 y# p9 y4 bPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
* n' c! o# o2 ]+ E                if j<i then
4 P& K+ A) g% Q" L8 }                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
7 s  E9 @0 \1 k7 p3 T- S                        end;
6 U  @3 R1 b+ e0 J$ c  g                else
                        if j=i then
' {3 ~! @" ]3 ^5 B3 \/ {9 v                                D_From_To_Chart[j,i]:=0;
, k2 U3 h/ \. i                        else
) t) h; i6 [; E2 O                                if D_From_To_Chart[j,i]<=0 then
  L% f" Y% ^( n7 D                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
% j4 k( X5 ^+ B                                end;
                        end;
9 M* J" t0 d9 ]6 v- u                end;
) F' o& P8 A* m" ?        next;
( F% v6 E* z4 |5 b" i; v4 \next;
, ?* K3 t2 ?7 L2 h) e6 p  e* p4 t
end;
. V1 t* R" i4 D2 }* X% `
& F* B- F$ v: [6 \( I0 o  T- w% y    Lines :=0;
        for i:1 to Number_Of_Machine loop
$ D. t( |& G3 D4 v" \& ?. }        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
4 j7 N  U) r) L) [- u& Q& }% _        MachineSequence[2,i]:=Rows;
0 F$ Y3 c! K8 g# x/ G            for j:1 to Number_Of_Machine loop
  v6 P# v* ^' ~5 A                    if W_From_To_Chart[j,Rows]>0 then
0 A6 i/ U( z' i8 h! h                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
) q' e* `0 n- g( r: C                        PartsTable[3,Lines]:=sprint("Parts");
+ }2 n/ G& h: x+ \! M$ \  _1 v1 ]                        PartsTable[5,Lines]:=Rows;
/ y# q9 @  }3 |5 r9 `  }' ]9 n% N                        PartsTable[6,Lines]:=j;
% ~( u; c& x' D) p                end;
3 F0 B+ b+ t! V8 B3 Y        next;
        MachineName :=sprint("M",Rows);
5 O7 K9 v% |! m* m        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;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
6 X. u- [( V7 v9 G- q! q        Machine.ExitCtrl :=ref(Leave);
  b; b! q, h7 r       
& Q; q* j0 V+ i' c        BufName :=sprint("BF",Rows);
- D! a, E/ o6 u* k( C        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;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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