程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
. n4 |  Z3 w" q4 q4 }5 s" h' Ais
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
) J! y! Q5 N! @1 L# c        if Number_Of_Machine/=D_From_To_Chart.YDim then
# g0 H: R  ~$ c0 f7 u% O0 a- S                inspect messageBox("Number Wrong...,",50,13)
, K' A7 m; y9 L+ l                when 16 then
                        print "Yes";
  S- P1 l  L# L: J, B% A$ g/ h% n                when 32 then
8 p) {6 s; J& K0 A) C3 w                        print "No";
                else
                        print "Cancel";
" K+ U3 C6 P/ ^                end;
        EventController.stop;
end;
PartsTable.delete;
$ x0 N; V9 U, w. J& Nfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
, i8 q2 L0 F& K) K% l/ v( q: w. g0 L                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];
8 ]  A- L3 m: v& P* }  G3 O) V; ]                        end;
                else
                        if j=i then
! Q. g: M8 A) ~: I" ~/ p# D                                D_From_To_Chart[j,i]:=0;
+ v& E7 w  ?# o! Y9 t- J                        else
                                if D_From_To_Chart[j,i]<=0 then
$ N# j! v; f- Q& ~8 g4 X& B                                        messageBox("distence<=0...,",50,13);
3 X1 a! ~: N( B9 X                                        EventController.stop;
                                end;
" {) M9 v, |( R% r* F1 u                        end;
                end;
        next;
next;

end;
7 H- Q( a! w5 D/ C9 C2 i' _8 z
, i2 ]" j4 x8 j5 l- }+ y0 J) @3 ~    Lines :=0;
* M( [+ L* d! T/ Y! t/ P5 X* b        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
$ }& m2 |: a2 p9 g; H, D6 e. n                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
! I1 `& F5 o- G& Q& p                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
        MachineName :=sprint("M",Rows);
' U. l1 v; o! X+ R% ~; y, ^        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;
( p* `& [% ~6 i+ K; p- k% W( R$ |        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
) W! C  M) k3 \, t7 v" J* r- Y: P       
3 A& ]" U( o! ?# O6 l' i        BufName :=sprint("BF",Rows);
$ V- U4 t+ q8 @. A) b/ u        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]);
/ \5 [9 f" Y  A. o' T; m                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
% Q9 a  i, ^  |* `# x# z        Buf.ProcTime :=0;
6 C# R9 Q: X& \6 S: C        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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