程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
& w  m8 \8 }; ~; k* M# `is
& N% ~3 D( _, L$ `        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
: ]+ t) A- X! v& N5 Kdo
1 M9 K. ^- G! X2 C( C: ~, U1 D* C. D        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
6 G% [$ N  ~, Q9 N' Z0 r' z                        print "Yes";
                when 32 then
+ w0 n" P! V7 n/ X& l  F/ V) r6 ~* u                        print "No";
% l: H# m- ]/ d                else
' x  ?( o8 l' G! `                        print "Cancel";
. \3 G, [/ ^% T7 e4 g- f) O  m                end;
        EventController.stop;
end;
' d5 a% s. Y  ~PartsTable.delete;
* G( D; b# K5 S6 i7 P+ A/ ^8 R6 [for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
# f3 B2 a: h* {& O" y0 O                        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
                                D_From_To_Chart[j,i]:=0;
                        else
) P- H  X; O9 ?5 t$ N6 G% i                                if D_From_To_Chart[j,i]<=0 then
2 J7 F& Q2 \6 U6 ?                                        messageBox("distence<=0...,",50,13);
  \: ]& v6 L5 m# G2 e) `                                        EventController.stop;
                                end;
4 z0 e: ~  Q1 l                        end;
                end;
0 K1 x5 X4 B+ Y- c, S        next;
* J1 v- T6 v+ o, f, `1 inext;
( ~1 k/ O; `! x4 a$ ^" G& m* W
end;
: Y1 x/ G" B3 S% p% A
7 n/ k+ R. J. ?# a* h    Lines :=0;
3 x6 Y3 u9 {  X9 X; Z- V        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
& C- L2 o" e7 @0 U: q& F( v        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
. o- F: y* D$ O& \! h8 ]) L4 {                            Lines :=Lines+1;
& Y9 r4 {$ f4 F& b. d5 h                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
3 z8 T3 x& G8 r5 f                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
6 y; v' K% r( M" D8 u. C% W% h9 O% l                        PartsTable[5,Lines]:=Rows;
5 s9 |! o; s, D  \                        PartsTable[6,Lines]:=j;
                end;
        next;
; i0 [+ e+ l, a7 B5 j, j        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;
' w7 P7 n6 A* ^  t4 w" R& w+ ?        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
* ^/ N, Y6 s, J+ M: I        Machine.ExitCtrl :=ref(Leave);
! d- B! u5 a) K: I       
& h; V4 l' ~4 [( x- e8 E        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]);
$ Z$ M3 m. F( ]                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
# I* p* M0 {" Nnext;
end;
: J. \; w' S2 v2 `( t2 v6 Y1 e

五五

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

wudi

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