程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
4 q' m! S) S* p8 T! h4 r. V0 M. \is
0 v+ Q1 x( ?  @6 P+ W        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
+ W& `( f7 p* G. W6 h; y        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
* I9 _6 O7 t7 \" F3 E                        print "Yes";
6 J6 l5 ]* F8 q; Z- y) P7 X                when 32 then
* Y6 L* `% V4 j( ~                        print "No";
) [2 l4 j: K+ g8 q- m                else
% K( |7 |6 e) j4 M0 h% k5 m( y                        print "Cancel";
3 ~/ u; c% M0 ]! i+ f9 o- B% t7 c                end;
, o( |8 c) e5 K. |" H( _) q        EventController.stop;
end;
# o2 b  D2 s! q- BPartsTable.delete;
7 d* K; \7 N( l4 f1 }' Lfor 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
' t, }% [9 L1 y: N                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
$ N% p& A& h. l5 G* P& o' q                        end;
( A; a9 D+ J. j7 k! X5 }. r. A                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
) n5 _- c( M* m- @6 J0 i                        else
( [+ _- j1 J: T0 w: ~7 W, G                                if D_From_To_Chart[j,i]<=0 then
; c: Y5 {7 x: n$ m) E& _# O                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
. C+ W, @; J; U  z9 l5 e' _                                end;
6 U8 d9 f6 z. a9 U                        end;
                end;
        next;
next;
2 O# N  j6 r. s, C5 V
end;
- C$ `. U2 |8 g6 a
+ q$ v& r8 A& j8 u3 ~    Lines :=0;
( p+ n3 G& z& e6 C  @! C        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
9 L+ P- W6 u3 {& e. u% {4 I9 y        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
3 L- h. D8 v# x! e                            Lines :=Lines+1;
4 c+ s  K) O: R( L6 g% u                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
0 ]) U6 W. w, X0 Z                        PartsTable[3,Lines]:=sprint("Parts");
. P9 i# J  Z& U. x8 ]                        PartsTable[5,Lines]:=Rows;
' V; o  B/ K1 U% b  ^3 O3 F1 |                        PartsTable[6,Lines]:=j;
8 L  v+ T/ V  b                end;
        next;
! i+ b  C# J/ r# r1 Z8 r        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]);
        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
" S+ x7 }0 u/ g# F        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]);
$ ]/ M  x; V9 c8 k5 Z                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
2 V7 v- H4 X0 A% R        .MaterialFlow.Connector.connect(Buf,Machine);
% N% N4 i9 j/ k/ l) p  ~next;
end;

五五

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

wudi

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