程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
0 g- J3 r& E8 u5 s( ois
% u9 F) z% t7 a7 F: r. @% l. T        i,j,Rows,Lines:integer;
3 H: e; P( o1 x8 J/ K        MachineName,BufName:string;
9 u7 Q7 j- I9 o8 p& V        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
6 K7 K- {! a0 s( k8 a# r: p                when 16 then
                        print "Yes";
                when 32 then
5 m- Q# T2 L% k) o& E                        print "No";
& l6 q/ w" W& q4 G9 ]                else
# J" g+ N( ], C: ?" P: o2 v$ C                        print "Cancel";
                end;
: ?  j9 C% ~5 M/ }6 x        EventController.stop;
end;
5 e) j6 K/ Q' W, L7 j0 `6 CPartsTable.delete;
for i:=1 to Number_Of_Machine loop
/ ~, ~/ s* v5 V# @# E7 d+ n        for j:=1 to Number_Of_Machine loop
0 l, \8 d7 |5 e) }# h                if j<i then
: J7 W1 h: H3 o* l. W8 q                        if D_From_To_Chart[j,i]<=0 then
! B) g7 K3 p9 u8 Z  f                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
* O' y" ]3 L% a7 s5 V* [' Q& n& Y% ^                else
2 A% k. V3 ?; N/ S; Q                        if j=i then
                                D_From_To_Chart[j,i]:=0;
$ B: S/ n, o8 I; n* Q                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
7 Z) w6 W7 o+ W3 z! }                        end;
6 _7 @  O; k6 v& M8 ], U                end;
        next;
next;
6 I9 }7 v; ~; G: D* k& T* C
end;
9 o8 P9 p0 M+ ~) H' L- }' w
    Lines :=0;
) M" A5 C  G" V2 [  V: f        for i:1 to Number_Of_Machine loop
: N2 W, e2 a% d        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
! i+ v0 [2 V. a. E        MachineSequence[2,i]:=Rows;
8 g8 Z" `. n$ v* [- [            for j:1 to Number_Of_Machine loop
: `) e# n# t  T4 `! M% K                    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];
0 E7 }2 f9 y% `4 m                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
0 u0 }# \$ y& n1 n8 s1 d                        PartsTable[6,Lines]:=j;
                end;
& m' @1 P- v( D        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]);
5 b% x% d8 g6 M        Machine.Name :=MachineName;
( _# @  }% H, p; J" v$ L        Machine.ProcTime :=5;
! ~/ ?6 ]5 J2 E- z        Machine.label :=sprint("machine_",Rows);
7 u# h- g: a+ N$ z9 r& X  R; W; b* o5 a        Machine.ExitCtrl :=ref(Leave);
       
- m. g9 K* V' ~2 N, \# Q        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]);
  R. \. x: f7 @5 ]                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
  n; L$ ?& g7 ^; B# F" H2 f5 `        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
6 a( g. ?- U% k! R1 enext;
end;
* g" L8 O& A3 a1 }, H

五五

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

wudi

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