程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
( |% Q( y7 \1 p3 a        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
! J- R. S6 `  d' Q' z4 V                when 16 then
                        print "Yes";
                when 32 then
" @: \1 [4 V! r- c/ s1 E8 h( O                        print "No";
6 [. F* A' }0 t2 m8 v6 P# i: i                else
; `3 a# P* u2 |9 x) S  B" c                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
0 X: \. e+ ^- E& j6 K7 \" s        for j:=1 to Number_Of_Machine loop
( C( v* [9 U' k2 w: A. A$ z# |1 [                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
/ }+ x0 o" w: I6 J* j                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
& W" p5 m1 ?" N7 T0 b, Z                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
2 |' F3 f  P" }/ ^% c% ]                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
                end;
, o' }2 f$ }/ j; X        next;
0 ], w6 ]3 x% J4 Ynext;

end;
9 ?- i, S4 q: \: I0 s2 |
    Lines :=0;
0 u! u9 e& `. [. V+ J, _+ w" R1 b        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
) I6 s. \5 U+ S+ ]/ B( Q6 T8 e        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
3 [$ C7 X1 C2 Q# R                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
: ]+ R) b5 C5 D% O9 {; o                        PartsTable[5,Lines]:=Rows;
* }5 J0 l9 v2 h6 p9 e                        PartsTable[6,Lines]:=j;
                end;
2 x  Z; w4 E# S" @4 N        next;
        MachineName :=sprint("M",Rows);
4 ^/ k7 B5 x: x9 P9 j. n        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]);
0 u! `1 n" D$ ?$ u) @7 M        Machine.Name :=MachineName;
0 f( `. z, p, d# E5 d2 `9 }        Machine.ProcTime :=5;
4 ^( I. x8 D' H7 h9 a5 R* L- t        Machine.label :=sprint("machine_",Rows);
- i" R/ J  w4 f# n3 O" v3 A/ T        Machine.ExitCtrl :=ref(Leave);
7 f3 d1 b. q7 f! L3 |6 W) {' y) @8 e       
$ b% G# ]& d  Y  l7 e& r; p1 }" n        BufName :=sprint("BF",Rows);
; F% M) d1 \% {0 E0 p# O        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;
% z3 B# d$ o% u        Buf.Capacity :=5000;
8 ^" V. }9 E( F0 J        Buf.ProcTime :=0;
( U$ A$ w: D. w" W        .MaterialFlow.Connector.connect(Buf,Machine);
next;
) r5 W* p: A& M0 Send;
5 E% \& T. O" E' f0 ?9 U8 b- _

五五

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

wudi

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