程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
: G# K' R1 i1 H+ F        MachineName,BufName:string;
, \: }5 J) o/ V( o! @        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
! G7 k- Q' ]% q& y& C* ?                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
) t/ A0 }+ ^8 t* E, r                        print "Yes";
                when 32 then
: C" S5 K' w! g$ _                        print "No";
                else
                        print "Cancel";
, S8 s- I9 f1 A5 o0 f; E                end;
        EventController.stop;
end;
PartsTable.delete;
# p" ^/ m; L+ t0 x' y% q! s% I2 Nfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
" @8 r" V/ t7 l+ N, n, B) Q                if j<i then
3 `% F6 E# r: G2 Q                        if D_From_To_Chart[j,i]<=0 then
$ f. |7 y+ m$ ^+ C: y2 I9 ~5 r                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
0 I/ A1 S3 U5 o1 V2 u  F( @. ~8 o1 r                else
                        if j=i then
2 E( I( s2 n+ J* M, z1 H$ _1 h# t                                D_From_To_Chart[j,i]:=0;
                        else
( ~9 @+ e4 I) M; d                                if D_From_To_Chart[j,i]<=0 then
! }( L1 O3 W7 _' C3 a2 G+ i# n4 U                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
7 o7 u1 |/ D: ~- d. j                                end;
                        end;
                end;
        next;
" ]8 w" R$ U& i% qnext;

4 M) L/ a5 K' q! I: K3 i3 Qend;

    Lines :=0;
0 A! k9 h  A+ B, i+ Y        for i:1 to Number_Of_Machine loop
/ {! `: G+ D. M- U% t+ `        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
& C& A: ~& Z5 P9 i" \6 |9 B7 `% B$ ]            for j:1 to Number_Of_Machine loop
9 J5 t5 b# Z3 [# D- y( i$ r                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
% [# N* W' N4 m9 h) V                        PartsTable[5,Lines]:=Rows;
" h( Q2 A+ P0 t1 K2 }4 u                        PartsTable[6,Lines]:=j;
3 q6 L' X( @, o' F, P                end;
        next;
. q) \& ?* r0 U6 U+ n" O4 u* Q        MachineName :=sprint("M",Rows);
. |  ^" H6 q) _2 U- Z- U) O9 \7 P        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);
        Machine.ExitCtrl :=ref(Leave);
" g4 @# v& N3 O% m- ^8 O3 a* k       
5 g9 b1 x0 y$ l        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]);
                Buf.Name :=BufName;
" s, M2 w. f. v4 d8 Y        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
2 A3 f; o3 ]. X$ v1 w9 ^        .MaterialFlow.Connector.connect(Buf,Machine);
next;
6 n$ t5 N/ x7 c: W; |/ tend;
8 k7 w) h2 \) M1 |- O: Z

五五

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

wudi

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