程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
. ^, x" T+ K+ u+ Uis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
; F1 a9 ]* Q( R7 l5 S% j        Machine,Buf:object;
8 }, s1 i; u/ D; z, f; Ido
        if Number_Of_Machine/=D_From_To_Chart.YDim then
! d# D7 N" _( ]                inspect messageBox("Number Wrong...,",50,13)
. `- @  b. R" }2 a+ N+ |                when 16 then
' Z3 ]$ T7 p& t- \+ T                        print "Yes";
                when 32 then
                        print "No";
3 X1 ]; B9 L9 P. r                else
0 f! l  T5 ^% y, K8 L/ ^4 d                        print "Cancel";
: s0 O5 `% [( B                end;
        EventController.stop;
/ c+ Z1 Z. k0 d/ G( X. Eend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
3 ~* X. ]) ~7 U6 P! R$ {& ?2 _8 S4 n                if j<i then
: K: p. N% ^0 O4 P! L                        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
" {1 |, `4 Q; g                                D_From_To_Chart[j,i]:=0;
5 Q& Y1 K$ s  u& _6 L; S. t                        else
/ b: H2 \) B0 j- z" R& V) f0 }                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
0 d5 s* f2 z; i& t1 Y4 i' e                        end;
8 r# y! y" u% a                end;
        next;
( `, o3 G* C, L8 Q# I" y8 mnext;
4 o# h) k* r- H/ M
* g. _: p2 w0 k3 H$ X4 A9 h+ Cend;

    Lines :=0;
+ F+ K& [6 m* L" o. x* F) M* A        for i:1 to Number_Of_Machine loop
$ K7 g$ ~0 ^+ t9 \/ C7 J        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
2 L/ ~4 A+ Q) o- r7 W1 @  C        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
+ v! m( Q7 s7 x( C. R8 ~. L                    if W_From_To_Chart[j,Rows]>0 then
3 Q( c% ^. }) ]. n% z. a% Q                            Lines :=Lines+1;
( W" ^, W  U' U8 D9 `5 Z3 K                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
' M+ V" H9 A# M. g7 \& q                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
! H7 c" A$ f5 b5 J3 N1 M                        PartsTable[6,Lines]:=j;
' v4 u$ L3 G4 ]3 s4 g0 P                end;
9 {' @* J8 |) Z- }4 E: k        next;
        MachineName :=sprint("M",Rows);
8 M9 i) B% }( v# a, c        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]);
+ k  F  r: j& `7 }2 I7 [7 N        Machine.Name :=MachineName;
6 r% ^: G+ @3 U2 e6 Z        Machine.ProcTime :=5;
) d+ @' c+ L% s$ U5 Q        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
0 i% \+ f0 g! a, u" s2 n; X. I       
        BufName :=sprint("BF",Rows);
; p/ L& b  r5 V  w, g        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]);
; v: n. w5 l& }1 H# i4 `6 M0 N+ n                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
9 e5 a% m! |! D        Buf.ProcTime :=0;
4 L( B  J6 `1 O& J' u- ^  i2 C        .MaterialFlow.Connector.connect(Buf,Machine);
' A! ~2 k4 d7 }) _) anext;
( ]5 V+ f. s6 O  _end;

五五

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

wudi

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