程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
( u$ f  t. s$ c9 m$ Y  e, `is
. Q2 r5 M8 S, B( g$ D2 h        i,j,Rows,Lines:integer;
5 I3 H: o* l6 A, b        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
( U' A2 N. A. P                when 16 then
" \& v4 e( E, F- l; m                        print "Yes";
                when 32 then
0 A9 U8 s& i- }                        print "No";
                else
0 ~3 @  E6 }8 h5 A/ g  O                        print "Cancel";
! @) n, n; S/ b6 b+ C* h$ {                end;
0 O7 g$ z+ e1 k% F/ @. O6 n        EventController.stop;
end;
PartsTable.delete;
# X, `. V9 a3 _- B' S2 b4 o2 F% Yfor i:=1 to Number_Of_Machine loop
, ~8 C, u4 ?, x. d+ ?2 v        for j:=1 to Number_Of_Machine loop
1 _$ t0 ^% ~" {5 M; t                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
  }) j, S& m, Z                                if D_From_To_Chart[j,i]<=0 then
) [7 N1 H2 ]4 n: s# ^                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
/ I! S' P3 L) }9 ], W  J! k                end;
/ z6 `$ c; }8 i) F8 n        next;
, X' @  R, ?' Ynext;
7 u" E9 b9 Q+ c
' Q2 a3 b5 s2 W5 w; `end;
, H6 Q) x2 z$ h
) i# l. Z- B9 z1 X1 H    Lines :=0;
        for i:1 to Number_Of_Machine loop
2 P* O$ x( l' I  Z        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
                            Lines :=Lines+1;
% \: w" w. @$ o$ m+ M                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
( c4 X9 b. B, C) R+ g# O/ Q                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
# x7 T) F* q# S  [" Y: J9 j                        PartsTable[6,Lines]:=j;
8 y* l4 J/ M3 _1 S) M/ q                end;
/ E; s( |' D+ m- z1 a8 S" z5 U6 y7 w        next;
        MachineName :=sprint("M",Rows);
+ v  J5 x5 }1 Z; H' n0 b; ?  O        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]);
* e% Q4 q4 g1 n        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
% L0 u% m" {7 D! ]  |6 Y       
        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;
        Buf.Capacity :=5000;
0 ?0 V0 U1 g. q4 W0 M3 m+ s' t        Buf.ProcTime :=0;
% Y0 U, S' \! D5 z$ k. V& }# j: Y        .MaterialFlow.Connector.connect(Buf,Machine);
1 s, E1 K  \( hnext;
end;
* K" u& I0 H4 a) m

五五

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

wudi

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