程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
+ C8 ?( Y. ?% ois
        i,j,Rows,Lines:integer;
/ D2 C1 S. `; C% N, a% s        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
3 I% P- W- a8 c4 d' k. e- m- u/ `! ^% V9 L                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
% N) ^- p) z3 o3 ?                when 32 then
                        print "No";
2 ~! \' `8 _$ r) u4 ~; @# G                else
' z, H, r- k7 \& `% v/ O# P0 {                        print "Cancel";
8 a' D; L# N/ h8 X  p, |" m                end;
        EventController.stop;
, J3 t, ~/ k/ X4 T6 Nend;
6 O. M) ^9 ]: FPartsTable.delete;
2 _; o5 X- S  u+ y! ]5 D+ hfor i:=1 to Number_Of_Machine loop
. ]$ M2 L8 S& M+ z        for j:=1 to Number_Of_Machine loop
                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];
* D' b/ m9 D0 B. d3 A                        end;
$ x. c9 f4 {, B, P  W                else
3 H& F2 }& j0 o- ?                        if j=i then
$ b$ U$ A' j: H                                D_From_To_Chart[j,i]:=0;
                        else
; p" t  h7 p+ J. T) }                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
4 u+ Y5 E8 Z+ C7 @  T                end;
, y7 K" ~0 i# t2 p* o, n        next;
/ C) ^! ]' v9 H+ mnext;
/ j; ]! }8 ~  u  i4 o
end;

+ ~# M% R9 T0 Y    Lines :=0;
: y" ]  k- j6 Z" k& M+ J8 B        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
; T" c. {8 L% O9 |8 y7 q: h            for j:1 to Number_Of_Machine loop
8 e( O- Z8 @4 x  K4 n4 [  o. @: L                    if W_From_To_Chart[j,Rows]>0 then
* k3 @) K# Z& t5 A9 H5 \9 O/ H                            Lines :=Lines+1;
7 c- {, r: r, A6 d9 r5 H1 ?                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
. P+ }( Z/ e9 c4 ]/ z/ z                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
8 A$ L" Z/ q) a+ h' S6 s+ Z1 n  D                        PartsTable[3,Lines]:=sprint("Parts");
4 ]7 {! t/ B* c; ~/ \                        PartsTable[5,Lines]:=Rows;
+ M# d; l1 A3 s3 L                        PartsTable[6,Lines]:=j;
+ ?, L' n3 }- `                end;
1 |# R) S# G2 F, P/ h        next;
2 Q/ x6 f! w1 D5 z+ t3 p. X        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]);
5 X' X7 k+ a6 q        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
8 L6 S. o' g6 f, W, 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;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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