程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
% Z+ l- R3 `, n7 ]        i,j,Rows,Lines:integer;
: f, r& h6 j, ]3 f0 O        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
# |( n+ g' x& G  Y                        print "Yes";
                when 32 then
% e: K3 a7 C3 g- G                        print "No";
* |% L7 d0 p1 u, Z                else
6 l; |" j. ~. X( b- v& y5 N" g4 A                        print "Cancel";
) M! V! }% W1 q& V: m                end;
        EventController.stop;
end;
! H: ?7 {# \* a* ^8 U3 m/ lPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
% o+ z2 u! D5 B& v, ?5 ]                if j<i then
/ b" p6 [$ t  s: f                        if D_From_To_Chart[j,i]<=0 then
7 f' I, o/ `- q                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
( Q/ u9 v3 }$ M                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
$ @' W& i  \$ _3 E! x. h: ~                                if D_From_To_Chart[j,i]<=0 then
3 W' f2 l; u9 p$ J: r5 v, B                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
$ s, x  _3 u! C, w+ X' q+ n* H. j/ [! [                                end;
                        end;
                end;
4 _; E  ], z% Z0 P        next;
3 ?& d. t/ F2 t: m# P( Lnext;

end;

, k4 ]- X+ z, z    Lines :=0;
* \+ B/ |* `- w; u/ d        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
, J& N9 x& o# d( I6 I7 [1 s) ]        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
% y( Z9 c2 w0 k3 C                    if W_From_To_Chart[j,Rows]>0 then
' |" C+ O3 h3 h/ Z3 ]                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
, }) _  S+ T; P                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
5 r2 q4 k3 S: ^& ]3 h. d6 z                        PartsTable[3,Lines]:=sprint("Parts");
/ O7 j( }# ]1 x                        PartsTable[5,Lines]:=Rows;
' a' J# k# i" _2 A4 s                        PartsTable[6,Lines]:=j;
1 Z5 ^! d/ i4 G6 A4 N- A                end;
) A0 ]$ e5 I4 v" E# [        next;
        MachineName :=sprint("M",Rows);
) y# m& A$ D3 O, `        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;
* H; f4 N  G& M- h7 R        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
! h, h" v$ _# S' D( Z       
        BufName :=sprint("BF",Rows);
2 d, E( r1 S+ B" w        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]);
9 z, |  L% E# n3 u                 Buf.Name :=BufName;
6 ?/ [& n* ^6 \0 C9 J        Buf.Capacity :=5000;
0 I+ n$ u1 w( X% ~7 T9 n: V        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
/ V3 e3 F+ d+ T. [0 cnext;
9 `4 I1 I$ F5 |: o2 t. a9 F8 dend;
7 c+ e+ ?& [/ ?; J8 }

五五

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

wudi

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