程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
0 R$ Q5 _8 ~+ h+ D" L        MachineName,BufName:string;
% k& v" }  v: Z: C9 N- V        Machine,Buf:object;
do
6 P% K! I! U3 f! Z, K( }2 z" ?        if Number_Of_Machine/=D_From_To_Chart.YDim then
" c$ G5 f2 I  X. n1 Z. @* ?$ G                inspect messageBox("Number Wrong...,",50,13)
: p8 [1 T0 g( h. R( L, N1 ?                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
7 \3 d4 y7 p7 I& X; C                else
- u) R1 }( f3 L# w' h" R0 `" S                        print "Cancel";
  W9 n( @" E' F                end;
4 W& B3 v7 q  G        EventController.stop;
end;
PartsTable.delete;
: ?  R) f) o$ Ufor i:=1 to Number_Of_Machine loop
2 V* q* O) C3 N- ^        for j:=1 to Number_Of_Machine loop
$ v1 Q. i0 E+ Z- k  r' C; S                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
8 I6 D2 U6 ?9 T: w; y                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
! `+ S; E. n) s" X' X                        end;
                else
" }: V  k& j% `( g- ^                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
5 @  M( Z( }1 c! i                                if D_From_To_Chart[j,i]<=0 then
$ T1 d. T! Y0 }) Q6 V                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
' s" g- p% B: o+ J( f                        end;
                end;
        next;
next;

% i9 L: s+ s# Wend;
2 s) _0 R) M7 F; J$ h5 T3 z. i
    Lines :=0;
        for i:1 to Number_Of_Machine loop
& D  s) ^( u7 a3 }' s8 q; O        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
* ^6 e( y) r) u% u                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
" ]2 _: N/ T) F                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
* c2 Y# W6 c, I4 D! Q) I  z( S                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
$ {' [& L$ s* \# P. f* D        next;
" `; X  r& s4 ~        MachineName :=sprint("M",Rows);
! x' z& K  g7 E  }        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]);
1 K3 w; G+ [0 Q) {; x% s2 z        Machine.Name :=MachineName;
( ~5 j- a" i# F, x$ F        Machine.ProcTime :=5;
9 F2 g) i: G& w- }$ d6 k2 i# M        Machine.label :=sprint("machine_",Rows);
0 U  d9 z( I3 }, L! y        Machine.ExitCtrl :=ref(Leave);
, O" J7 w( I, \+ T: G  g& f       
        BufName :=sprint("BF",Rows);
0 T7 s. d5 y4 K% i4 B        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;
- a& A- R1 G0 r  g        Buf.Capacity :=5000;
0 F) Q+ P# Y- g' J        Buf.ProcTime :=0;
# J4 h4 G6 T+ d7 V) }0 z; m        .MaterialFlow.Connector.connect(Buf,Machine);
next;
2 T! n! T6 Z: y' t$ |) \end;
- Z1 u, m) V5 [9 Z6 V# i6 p

五五

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

wudi

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