程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
. ?' x% k0 L/ Z1 F! C5 X" i& H' Bis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
9 `# h; ?. z( T0 }: y" f        Machine,Buf:object;
do
1 T: u& e4 d  s$ _4 b; \7 s        if Number_Of_Machine/=D_From_To_Chart.YDim then
3 M1 c7 `# j* L9 o: M                inspect messageBox("Number Wrong...,",50,13)
8 l( U0 F9 A; N8 K. [( G# Z                when 16 then
                        print "Yes";
4 @% e+ v) u8 R( C) k+ t; a2 u                when 32 then
                        print "No";
                else
                        print "Cancel";
0 W+ ^3 h3 U8 ^: p3 }+ `/ R                end;
        EventController.stop;
. ^7 v: y6 D- x7 Aend;
PartsTable.delete;
0 {5 i' H! p- c4 |for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
7 f5 D9 w& M8 Y0 ?# u                if j<i then
1 s& B' d- i$ p' z+ C% U. P                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
4 ~0 s/ y$ a& h" f$ b; O                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
7 }8 d* M' z: A# }. p) M9 Y) R                                if D_From_To_Chart[j,i]<=0 then
1 |# {  k/ N/ B" B4 J# J! V                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
) ^6 R# ~- I# V2 b# G' l; N2 d                                end;
4 p) s1 @$ b' K7 |3 q% }                        end;
                end;
        next;
1 s3 z) y+ U! ]7 Enext;
, p/ d) V6 u& B) o9 H
end;

, B0 T# `6 W- g; d0 c    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
! t) d# f2 Z) _        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
5 s. G/ C' q$ G                    if W_From_To_Chart[j,Rows]>0 then
) h) I" G& L$ B% W9 d1 s                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
# R( j* ]/ z1 l- _" k0 \0 x7 {                        PartsTable[3,Lines]:=sprint("Parts");
4 M" j- g& h  W$ u5 J3 J& E. A                        PartsTable[5,Lines]:=Rows;
. Y1 Q( [1 j( U3 U% ^  _" y                        PartsTable[6,Lines]:=j;
5 S5 H5 a& B4 R5 d                end;
        next;
        MachineName :=sprint("M",Rows);
; |3 j5 U( k* O8 ]0 P2 e) H        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]);
7 i% [' D1 P0 A0 z& g        Machine.Name :=MachineName;
. z- a6 E; s- ~7 p7 x$ q- z        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
* X- E5 K) E$ h        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]);
% H" R$ I' c/ d/ U! c6 J                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
. M& R% A) {" i        Buf.ProcTime :=0;
& O8 G9 n  Z# u) e: n0 B3 R        .MaterialFlow.Connector.connect(Buf,Machine);
next;
+ s. K* M% n2 {/ o4 Zend;
8 X" m  |* ?4 q: J' k2 A; {/ n

五五

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

wudi

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