程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
5 a/ x. Z$ ?- ^! h' pis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
! P  G- u8 V4 F0 e; Y! ~$ K% kdo
8 {3 ]$ w1 \- @4 e" X* U7 b) {" L        if Number_Of_Machine/=D_From_To_Chart.YDim then
8 J) h, X# F7 `& M( `3 J                inspect messageBox("Number Wrong...,",50,13)
; Y3 L& q/ V% A3 u                when 16 then
4 P# J9 f! c: {8 x8 }( a9 j# l0 z. b+ ]                        print "Yes";
                when 32 then
, R( E: Q5 u7 b) g' f8 [, N                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
1 t/ a7 k  j& Q) gend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
9 d: ]1 r( e. O0 I. [8 d: a+ S: L) q  M        for j:=1 to Number_Of_Machine loop
# ^2 J- C9 O7 n& F3 ~                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
6 H* M* T- q; c9 o* T+ D# q$ E                else
8 G) m7 v- Y2 g                        if j=i then
# F- v0 s/ N( Q8 h                                D_From_To_Chart[j,i]:=0;
% J+ ?, }' G1 r7 v                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
' i+ w4 j4 G( B, x- i6 Y' l* P                                        EventController.stop;
' v) A& ^$ H; E+ D. H                                end;
                        end;
                end;
        next;
next;

6 V+ n3 J! n/ T. x8 }) f2 g- xend;

    Lines :=0;
1 |2 N1 v9 o! R, ?: f        for i:1 to Number_Of_Machine loop
; S/ T1 g/ c7 I' P6 J& ^        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
8 M" R4 B) n' |        MachineSequence[2,i]:=Rows;
* @$ c" ]9 J' T: D. I- u4 C            for j:1 to Number_Of_Machine loop
$ C; I! x1 c9 {5 e                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
2 a" x! O, [" k: f: U' F                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
' V; \' Z2 J1 c                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
! z+ `, s; D% z% j! ^6 `6 ~9 a5 }        next;
/ n- _5 D4 R( X0 s: V        MachineName :=sprint("M",Rows);
  d9 }( f4 Z  Z& _        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]);
' `0 |0 ~2 D# M/ `0 v3 O9 C        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
0 G4 |) [% J5 |! |" Y# K' L7 K        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
8 \& x" p6 ~9 d        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;
: v! U; h$ H0 e; h  Q  f; }  ]        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
  D- T3 n2 r# F* z1 n! x+ o

五五

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

wudi

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