程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
7 @* _, u& s) E/ v: sis
+ R* P+ }7 R8 `" ^# M5 [8 W        i,j,Rows,Lines:integer;
7 v, v: _9 o. }. g5 R% H7 }        MachineName,BufName:string;
. s0 ^! K% b; y        Machine,Buf:object;
. i9 ]# b. p2 m+ `& gdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
- `2 v. F2 f8 H                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
9 F; T6 g5 g- K, B; `$ e# {8 @$ q                else
                        print "Cancel";
                end;
9 @2 |# Q, b8 Q/ J        EventController.stop;
2 g4 }  j2 I/ g# Y6 y! Gend;
" r: i) _; W" v4 n0 y6 L) u, SPartsTable.delete;
& g" x" T& Q  _; v8 d* Ufor i:=1 to Number_Of_Machine loop
/ H" ~" ^2 ~, y) Z, S! l        for j:=1 to Number_Of_Machine loop
8 U! Z/ `& i2 }                if j<i then
1 b7 H& S* f+ I" B$ @                        if D_From_To_Chart[j,i]<=0 then
- r' \' B  Q- E" d$ S" }) e3 L* g                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
. k9 a6 ^0 P2 i! `! A0 G                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
, B$ N# Y3 W' q! v/ n                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
( W% ]- h) L9 U2 q) e8 Z                end;
. n* b7 N" J9 w8 u3 ^/ D0 j, d        next;
next;

end;
) z% ]6 v: x( U+ A) i
    Lines :=0;
: O+ {' N  |; R$ i2 g) R3 u+ |        for i:1 to Number_Of_Machine loop
0 U$ A' `5 d$ J2 C- }3 S        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
1 A! K1 L2 j, _  T9 ~  W; t                    if W_From_To_Chart[j,Rows]>0 then
, N9 ~8 S$ h" ?& _5 x) z                            Lines :=Lines+1;
8 }1 I) V1 @! R% \* \' M                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
! P* P2 x$ G* W                        PartsTable[3,Lines]:=sprint("Parts");
$ ^: _6 Y% f! B$ M                        PartsTable[5,Lines]:=Rows;
7 w: {) M' F, H, U                        PartsTable[6,Lines]:=j;
- V4 a$ S; h0 I: [) _" y                end;
        next;
6 R2 {0 Z: F; U: r2 x' u        MachineName :=sprint("M",Rows);
( i: q2 k/ |1 [8 o" r! @! @$ 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;
8 y6 t5 l. u0 v* a        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
; K2 ]$ D) a% T( b1 ]        Machine.ExitCtrl :=ref(Leave);
  \  ]! n' u# l6 K& v       
/ i+ |6 L% r3 @8 M        BufName :=sprint("BF",Rows);
$ g& h/ z& J+ a8 m9 ]* ~1 R        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]);
% X7 g' V$ h4 v- n% K6 N% A7 I' W                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
: r3 c. ?. ?4 a" r% T- G        Buf.ProcTime :=0;
6 ?, }3 v) S3 _        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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