程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
2 ]( P. W* A" m2 A        i,j,Rows,Lines:integer;
( ^+ e! r. [: k! |! b' t0 b        MachineName,BufName:string;
* `* P" I/ i5 p/ A4 W        Machine,Buf:object;
1 D" V, {9 e& e# s4 |5 D6 bdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
9 z( f9 @5 t8 ~1 ^1 p                when 32 then
7 w& M# Z. n) W- U- t2 ^                        print "No";
                else
$ }9 |$ Q; t. `2 Z8 v4 o9 e                        print "Cancel";
; M# w: m$ g: M/ D) j                end;
6 P% I, `* F: U        EventController.stop;
end;
PartsTable.delete;
) g; d, l7 W1 n8 F0 _) xfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
$ ?( O  _. [4 E! f, L3 E* a                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
  F4 O( U; O1 T- U* W$ }                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
4 V" i- G) \: c  x                        end;
                else
                        if j=i then
8 ?, ]3 j+ `3 j) C, n                                D_From_To_Chart[j,i]:=0;
                        else
; D1 Y6 I8 ^! u+ {4 ~                                if D_From_To_Chart[j,i]<=0 then
" z% @" \; l* P2 s                                        messageBox("distence<=0...,",50,13);
" T  d" h9 s2 B. ]/ U. f                                        EventController.stop;
                                end;
8 d- w' M" @  b                        end;
                end;
6 g  V% ^/ ]" o        next;
& u9 M; Y5 ?* M8 f6 C- n7 h  [3 v- Knext;
  k$ c' ~' z3 M$ d5 Y: o
end;

' l5 n1 l* x- a* o( l    Lines :=0;
- c9 |& _& a( }        for i:1 to Number_Of_Machine loop
* F8 o' R. i$ S9 A$ E        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
6 Z9 q; C5 V* j- o% G8 M            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
  U* a1 p; T- A+ }0 r5 |3 p2 [                        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 n5 Y, H' r6 Q" l' _" X' K                        PartsTable[5,Lines]:=Rows;
3 I" p: a" ~; j4 Q( M( e                        PartsTable[6,Lines]:=j;
                end;
        next;
8 i% ?7 R( r0 S3 f$ p        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]);
2 P" D! M; }6 o        Machine.Name :=MachineName;
- a0 Z) ?1 a5 R        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
3 f# P# ^( |5 M" U6 p- S        Machine.ExitCtrl :=ref(Leave);
) M9 x  l* o1 e/ G' Z& x       
' h9 C: ~( c+ I        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;
9 `% D$ I# f" d+ k        Buf.ProcTime :=0;
1 ^% v. n: q$ O: O" j2 B+ {        .MaterialFlow.Connector.connect(Buf,Machine);
# t/ e" f4 k5 a7 x" @: Anext;
end;

五五

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

wudi

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