程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
5 Y# I6 D' D- t, w2 y; m        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
, \' w  C# x0 e9 V' [2 I        Machine,Buf:object;
1 K$ a7 Q& s* `0 {do
% O( N2 L* o7 F3 v# [7 c        if Number_Of_Machine/=D_From_To_Chart.YDim then
1 J$ {% c2 w4 M! g                inspect messageBox("Number Wrong...,",50,13)
9 S8 O2 I1 i) l. _: s& U                when 16 then
5 Q/ K$ S5 ~7 d8 z' s% V* O                        print "Yes";
$ m  g& l  Y* f! \) c                when 32 then
6 j( `4 `  [/ L                        print "No";
                else
% _: f# N8 _; i" `& I) Z6 [2 h- |                        print "Cancel";
                end;
        EventController.stop;
& ]) Y# r  s, V3 d/ N( R( lend;
3 x( [. t' P" _) W8 W2 vPartsTable.delete;
' o0 A# s# y/ V' D5 [+ Dfor i:=1 to Number_Of_Machine loop
        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];
                        end;
                else
                        if j=i then
6 P: I1 N/ i1 o4 K! ]  O- }7 a                                D_From_To_Chart[j,i]:=0;
, c; [8 [# P, Y3 D& T                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
& J- o) g& m+ Z7 i. }+ p                                end;
                        end;
                end;
, ~" v6 `( T  ?' M' J        next;
$ G+ u3 O7 G* {! L9 xnext;
9 D/ i5 E' k( J9 U7 z: Y' y( m
end;
5 N& |2 ?/ V% S6 z7 _& e0 o
( j! n4 B. L# q$ e9 D    Lines :=0;
        for i:1 to Number_Of_Machine loop
" K% r/ s3 q: n( [        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
1 F. F, |8 S5 R) X9 t, ~        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
$ W# w) w! e6 I5 ~/ a" d3 d7 X                    if W_From_To_Chart[j,Rows]>0 then
  r2 z9 U( o* `) E0 o" J6 U                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
4 O# A; K+ G/ S( R6 ^- R6 F                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
) ^; x$ [( Q; ?/ }& F0 H, J                        PartsTable[5,Lines]:=Rows;
4 D) t7 w" E9 Y4 R- r2 G                        PartsTable[6,Lines]:=j;
5 c- j% j0 W( p( f                end;
        next;
        MachineName :=sprint("M",Rows);
5 @1 t6 V9 q" ?5 }" U        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]);
" U) z1 ~4 G- w0 G# p2 P2 Z        Machine.Name :=MachineName;
) k9 p; s1 D, ^$ ^- o# {" p5 q        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
, C' W' u: z! N0 O! L        Machine.ExitCtrl :=ref(Leave);
) d0 \* Y" R% _5 h. W6 ?# g6 {       
        BufName :=sprint("BF",Rows);
, s7 e3 U' g) T+ H" J3 U( t        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;
+ ~* L% m1 M* u0 {/ W        Buf.ProcTime :=0;
9 E( u% L5 t/ ^$ Z        .MaterialFlow.Connector.connect(Buf,Machine);
next;
) M! i' J0 @/ dend;
8 ]& D  h& I  C. a: z! X

五五

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

wudi

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