程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
0 G3 u' b+ L& _        MachineName,BufName:string;
9 l, \! x1 Z" F) c        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
# z! u6 r2 S3 ]% b3 u                inspect messageBox("Number Wrong...,",50,13)
% t! |' b$ f1 q* z6 |                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
, _5 V& x: x# r! u                else
                        print "Cancel";
                end;
        EventController.stop;
* E+ ?. x- J9 k1 T8 T6 Nend;
# d) W6 T2 K: lPartsTable.delete;
5 n3 \: L. u7 T* H' f) X' `for i:=1 to Number_Of_Machine loop
) j! h$ _* d: g- Z        for j:=1 to Number_Of_Machine loop
; H& P  E0 J* Z* l1 ^3 y                if j<i then
& W) a7 I( d" |                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
0 [8 h+ W. ^# |0 O) i+ L8 `! \! t                        if j=i then
) L0 g. n/ `3 J% U# l9 a( l                                D_From_To_Chart[j,i]:=0;
                        else
& J* ^2 W, G4 I* i4 n                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
- G. Q$ p5 m3 {0 f& p+ k4 d1 e1 [; M                                        EventController.stop;
7 m, u( g9 q$ l3 ]3 S                                end;
9 v  }: s- P. B$ w6 Y$ x                        end;
: m. @- h" H, }/ r                end;
        next;
next;
, O' T4 m% w- D$ |7 n- y2 p1 _% a
end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
; \3 n; x' t# ?1 F% @% O( k. k                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
" @. n; c# j6 W0 q  O                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
0 l/ T9 d+ _+ _                        PartsTable[3,Lines]:=sprint("Parts");
" Q1 w4 Z- z0 B% B( z0 M# [                        PartsTable[5,Lines]:=Rows;
% g% H3 m% ?! h' ^( i" Y                        PartsTable[6,Lines]:=j;
) w; X. G. Z1 D4 \" T; J) |                end;
        next;
" G0 i! a  d4 _3 L6 q        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;
5 [: W0 J  q  ^# x8 W        Machine.label :=sprint("machine_",Rows);
2 K/ r! q* a* \0 T: F/ @5 t        Machine.ExitCtrl :=ref(Leave);
       
        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]);
7 ]' N& R7 i, }( b                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
0 t9 ~7 }5 c. t8 t% T  b6 E: @  P5 V0 _        Buf.ProcTime :=0;
8 K% j9 k% e2 f! G        .MaterialFlow.Connector.connect(Buf,Machine);
$ l+ u- b# Z. f+ ]  _, Tnext;
5 w( n8 P/ ~; o; w# @0 x8 h) }end;
" R% h( x1 i+ q) _4 s2 p4 [3 e3 Z

五五

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

wudi

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