程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
9 L, U+ f1 l5 F- u        MachineName,BufName:string;
0 q+ P! V  j0 F4 I' a        Machine,Buf:object;
do
& o& A- h) q0 C8 W1 n  E        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
$ ]. A5 p: b; m5 r0 k                        print "Yes";
                when 32 then
- u' u, p* d1 y  v6 T                        print "No";
                else
                        print "Cancel";
7 s3 X1 C: Z* B: [: D: \7 v( X                end;
        EventController.stop;
& X, b% C* A( D: _+ j2 L( Iend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
: J1 w8 X6 C, b: w% @/ z5 y        for j:=1 to Number_Of_Machine loop
. E$ F* d% q% l2 j9 b# e$ u                if j<i then
                        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
8 }$ f( i) Z, f7 c                                D_From_To_Chart[j,i]:=0;
$ i: m* u8 c- o                        else
: a8 \) P" F! U# N& X                                if D_From_To_Chart[j,i]<=0 then
2 c# M! h8 }. h1 J. {                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
. N+ |/ \% F4 z3 B( L                end;
. q- s3 L4 c7 T* t/ Y8 T; B. H, x        next;
5 l. B6 ^6 V8 r& l% Ynext;

end;
. p8 s" N1 y* b6 g! o
4 u. X. b/ e3 L    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
4 i, E, n4 F  C4 |( M            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
: U% y: ^$ |  U! N% H                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
" q# ]* p% p  {% m+ ?                        PartsTable[6,Lines]:=j;
6 e/ j' w9 C8 T. J6 x% K                end;
        next;
        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;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
7 w% g% X- H9 j        Machine.ExitCtrl :=ref(Leave);
1 L7 E9 W) R$ N( R; h; \; h       
! n8 L& S# m* t5 ~: W- {1 v" i        BufName :=sprint("BF",Rows);
( c/ ?5 x! v6 X        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;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
& U+ |6 d) \# a/ X# o9 b& x, G        .MaterialFlow.Connector.connect(Buf,Machine);
& I( d) d6 U9 ?; Y  g4 _next;
, q* G4 ~: f; w% U5 t4 U# N% p, cend;

五五

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

wudi

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