程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
7 j1 o7 U; v; t" B5 g. V, nis
8 @5 a$ q& u* a  g3 n3 z        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
% P2 [8 X, V5 F$ `# b: T4 V        Machine,Buf:object;
do
/ S, \" F! g! D) L* C        if Number_Of_Machine/=D_From_To_Chart.YDim then
4 k8 F. J$ N9 `+ A4 {! I: \                inspect messageBox("Number Wrong...,",50,13)
9 t* t+ r- C; [, Q% H                when 16 then
                        print "Yes";
; |+ @8 P- P6 x- M                when 32 then
                        print "No";
; T2 o- r  g0 v  U, n: v                else
                        print "Cancel";
                end;
        EventController.stop;
" d( i. |6 a0 W* w7 X8 u2 S: I4 lend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
8 G8 \! m8 ^. @$ a' J1 x                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
3 q3 T5 B5 W4 s7 O% _. Y6 L5 U                                D_From_To_Chart[j,i]:=0;
: n" V1 C, k9 W1 t8 |3 _3 s0 E                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
  h! P. y  S: g6 S" w4 y8 s5 P* k                end;
1 t4 r  C& q, Z; |        next;
next;

  |% Y- Y( w* {2 w9 E& ]$ Rend;
: i5 B! e5 b9 M' Q9 @
    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
3 f- M& b; o( ]7 @        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
5 m+ R7 x4 v% X5 w- U9 \                    if W_From_To_Chart[j,Rows]>0 then
: [* T4 b( e! y4 H, ^' i' k, i                            Lines :=Lines+1;
- C; ~1 E* `. @/ Y, `                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
2 s8 R5 _) ^/ q7 ^                        PartsTable[3,Lines]:=sprint("Parts");
, _/ e1 n* J) `- v                        PartsTable[5,Lines]:=Rows;
& o0 ^$ H$ P# q1 W3 a. U                        PartsTable[6,Lines]:=j;
$ ]: T, A  h" x1 z* U                end;
. B( u4 e6 A5 J: O- v$ N$ {9 g        next;
        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]);
8 _9 P+ Z3 N) D7 N1 v        Machine.Name :=MachineName;
& `; S- s% ?" z9 J# d2 _        Machine.ProcTime :=5;
. C4 e5 O5 B5 E        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
! I4 D: W' C2 u( f% R/ r/ Y       
4 k+ |6 N3 N8 u1 l# C% ~, X2 O        BufName :=sprint("BF",Rows);
, U  q, w: m: @" c) Z! n8 i        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;
* x8 j& h% M$ q+ H% T: o& j: n        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
/ W" g3 J' U- \) g* G* bnext;
0 ^) T. l7 K3 p/ D  w. wend;

五五

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

wudi

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