程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
, z% j% U( l7 Z) c3 M% [  A% dis
        i,j,Rows,Lines:integer;
, x8 g2 z, v/ D/ F        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
0 k- C5 F1 \3 K; h5 C1 A                when 16 then
5 e4 M( E/ h) v  ^) l  |0 k                        print "Yes";
                when 32 then
                        print "No";
$ t3 t  A) i  j. D% J. R3 ^                else
                        print "Cancel";
                end;
) V/ P! G( W$ o; r  L" t4 q' j        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
: O9 ?9 E( n0 r                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];
( H: ]% Z0 D% i& w8 ~' n: u                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
9 B+ n  N9 S5 ^$ r                                if D_From_To_Chart[j,i]<=0 then
6 K# {$ P+ s/ K4 O4 D8 Z! R: L                                        messageBox("distence<=0...,",50,13);
1 H" I7 l; S  ^8 C0 k8 y/ s* H                                        EventController.stop;
                                end;
( h, V$ g3 l4 k6 J/ u$ t9 a                        end;
- l! W, k+ \+ T$ r# U7 B6 I                end;
# u( Z, ~. f" P& x        next;
next;
5 |. M6 w- o) X5 t& x4 j
end;

$ E3 [$ P6 P; T# j    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
$ L- i! s( [4 o! k9 Q            for j:1 to Number_Of_Machine loop
* b9 a4 w. {5 Q. ]) Q5 |+ G                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
7 \, u1 N% D# y/ d, R. h7 u, k                        PartsTable[6,Lines]:=j;
                end;
  Q! C# Y2 g( a; r: ?# C: ^" \        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]);
  e* M+ s4 ^5 z1 n        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
) U2 d3 b7 J2 X# }" @( Z- N* ^) m( s        Machine.label :=sprint("machine_",Rows);
7 H3 t0 R$ W. q7 U8 J        Machine.ExitCtrl :=ref(Leave);
       
  R9 \2 u- T% J% k6 Z  H9 v9 h  t- D        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]);
+ O$ X; j9 R1 i3 C1 P4 i                 Buf.Name :=BufName;
0 |8 X) |) B2 A6 n9 n# e0 k        Buf.Capacity :=5000;
- P/ P+ w; A9 H/ _' [( J        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
' q/ a$ E* {0 W. {  [end;
; m0 [5 Y* i( O1 `5 i2 U; k9 }/ X

五五

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

wudi

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