程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
+ F& X" W" s3 ^/ e$ o: x4 iis
        i,j,Rows,Lines:integer;
' M8 ^2 [: z7 O) W. ?4 R        MachineName,BufName:string;
        Machine,Buf:object;
  f  Y! w* i( f% |do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
0 c# H) V/ M2 u                else
                        print "Cancel";
2 b& H  W! t0 K7 K: J                end;
        EventController.stop;
5 u. c/ P" E9 L5 T5 F* {( bend;
& P1 g8 o1 R, r9 J1 y9 x# k/ U2 RPartsTable.delete;
for i:=1 to Number_Of_Machine loop
% u3 [/ P: `3 q* B        for j:=1 to Number_Of_Machine loop
                if j<i then
8 e" a, X" ]* G. e                        if D_From_To_Chart[j,i]<=0 then
, X: I( c: z5 k! g# f                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
# H- D" _9 F) ?/ C                        if j=i then
( n( B1 u. v3 H- ~: i: g                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
( D* R  d* _% d1 k                                end;
" q! ]; t5 w: L/ V                        end;
: T0 C) G/ E5 q# m                end;
6 w# C4 G- t7 C( s) B+ Y$ i        next;
next;
3 z' V( M6 Y2 U& U
end;

# a3 y5 i$ T0 B! T7 X9 g! @    Lines :=0;
        for i:1 to Number_Of_Machine loop
4 q/ ~* k! t* @( U$ C        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
4 h) r4 y( c' R        MachineSequence[2,i]:=Rows;
+ z5 A2 s4 b4 h: s8 h! M/ |            for j:1 to Number_Of_Machine loop
3 {3 o( V! R5 S/ i6 Q8 ?- T                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
1 ]* K& v7 E% F                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
. Y. e6 J0 R2 k( q6 j- c: E                        PartsTable[3,Lines]:=sprint("Parts");
( J/ ?* Z6 P# Q4 S9 v) M                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
2 p3 {! ^6 A, T- `1 u                end;
        next;
        MachineName :=sprint("M",Rows);
. `/ P7 j) K+ k! g* p6 U' X        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;
4 K- J5 @' }- E8 [0 A! K" `        Machine.label :=sprint("machine_",Rows);
( q8 m2 T, N# O$ ~        Machine.ExitCtrl :=ref(Leave);
# t# f& o- d5 t. m2 `0 J4 z$ ~2 ~       
$ X% q& {0 p5 j% \* J) w        BufName :=sprint("BF",Rows);
9 {; E8 m6 C; c. P        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;
7 g6 L! S8 O3 K/ o2 l4 P  A6 \        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
2 {; T9 p. T; A, i  h1 U        .MaterialFlow.Connector.connect(Buf,Machine);
next;
6 F: T' M" e0 }$ tend;

五五

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

wudi

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