程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
& \+ Q; k4 P+ H! n3 W3 U        MachineName,BufName:string;
        Machine,Buf:object;
do
2 [. B& x$ T+ w        if Number_Of_Machine/=D_From_To_Chart.YDim then
5 e4 V! }( ]3 F7 [, S                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
9 _$ z+ r- U) l5 v                else
                        print "Cancel";
/ _  H- B, E0 x! t                end;
) s& W; G# B: q+ S, }+ N        EventController.stop;
$ }' W# a# ~$ @( l. v5 N0 M! Oend;
! Q5 [9 A$ U2 u% zPartsTable.delete;
for i:=1 to Number_Of_Machine loop
1 Z, N( }. y! F, H, o        for j:=1 to Number_Of_Machine loop
2 K2 |4 v5 p6 Q                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;
, I" A3 P- c; a4 w                else
) _2 i% |& d" r/ e: j; Y                        if j=i then
                                D_From_To_Chart[j,i]:=0;
) v/ D" t: W6 g' |: A# s6 |. E% }                        else
                                if D_From_To_Chart[j,i]<=0 then
# J0 a+ r3 r2 j4 Z                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
! g' d3 ^, n  {; x( R* ?/ ?/ M% x                        end;
                end;
) y' r5 R. b9 z  b! H        next;
next;
3 J/ t- d3 y$ h% ]' m9 A$ \
end;
0 t% R7 k8 y" i2 R) o. l( o5 K) o+ ~
" O2 |5 W+ D! u- p: A2 F    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
% K+ g- D/ K3 ?# k& m/ d        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
% r2 z; s# v1 `. V                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
" f) C! G; ~" X6 c                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
5 ^2 I  X0 F0 K) z: a: `                        PartsTable[3,Lines]:=sprint("Parts");
# I( `1 C% Z5 A                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
# K! G( `8 F5 s                end;
        next;
9 C( p4 v6 |5 s1 l5 c) B        MachineName :=sprint("M",Rows);
' P7 N! _2 ^' o! j4 e0 }        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;
5 ~$ J& k. Q/ T  H0 h/ M5 q. f: V* m        Machine.ProcTime :=5;
- \% V" s! I0 G* f        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
& x, X) }: p1 l, q( `        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" [: o. d6 Y+ a/ J# |                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
/ w" m1 L  s9 L/ {+ n# _5 `# ~. g        Buf.ProcTime :=0;
, M' p6 j' e4 j" d4 @4 Y        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
0 r, M+ J& t' W  Y6 R, r4 |1 }8 v

五五

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

wudi

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