程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
6 m* G" M3 S) ]3 h+ V. U# {2 vis
        i,j,Rows,Lines:integer;
7 z) j: Q4 z1 G$ m% m        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
/ E, s) S! g) C: C8 O                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
" W6 G& o1 N, x& k                when 32 then
                        print "No";
3 S$ `5 K- }  o* C4 r! [7 e                else
1 S# U* ]( s5 t                        print "Cancel";
                end;
        EventController.stop;
: B  k. i, w( L' q! p. y' \end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
' [2 p' p! n  o* ~9 T3 x; Q& d                if j<i then
9 z0 W" o* k4 k, ?                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
  f$ ]8 I) F+ N$ T; |                        if j=i then
/ }7 s2 s  L, c( H+ d' H                                D_From_To_Chart[j,i]:=0;
                        else
, r6 ~( a4 A& f                                if D_From_To_Chart[j,i]<=0 then
  i& u! X! F% h0 Q6 n' J                                        messageBox("distence<=0...,",50,13);
1 m( m% K. [* R: z9 y                                        EventController.stop;
                                end;
                        end;
                end;
        next;
next;

end;

% V3 @3 j+ `0 g+ \* C    Lines :=0;
0 c6 Y; `- g: g+ K5 \! `) o        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
8 Z! M$ ]: G: ?; B        MachineSequence[2,i]:=Rows;
  K6 z. A# F' D5 f            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
- N4 {& X  t2 t$ {) L" C5 `1 C1 t                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
! w/ D$ T) g! I9 P) d1 K  s        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]);
        Machine.Name :=MachineName;
/ K. ?& j0 L4 H3 d# ~# q, a* T        Machine.ProcTime :=5;
7 X% E6 h# n) C0 g7 [1 ^        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
; A/ `1 L- Q: e6 p        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]);
( |# @; l% D" N/ o% _8 T1 y! t                 Buf.Name :=BufName;
0 G' F! A# ]0 c        Buf.Capacity :=5000;
# t5 j* |, n8 |1 I: t        Buf.ProcTime :=0;
7 `  i0 ?7 O0 E2 b' Z& P        .MaterialFlow.Connector.connect(Buf,Machine);
4 N* o& g. A4 Z! ~- Znext;
3 ^. H5 \5 M% u4 S0 Kend;
* Q6 ^4 X* ~8 x, S" M

五五

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

wudi

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