程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
, S% X* p. u+ _/ Qis
$ W6 v* E9 z4 X4 h4 F" ?1 g        i,j,Rows,Lines:integer;
1 |; U/ @! [& g; B        MachineName,BufName:string;
        Machine,Buf:object;
! ?) I3 v. H+ q1 X5 t" k1 edo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
" C: k( l9 Z' z0 y/ D' d                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
6 o/ z* C* f5 `1 ~) h  @                        print "Yes";
4 ~8 ]6 O+ o0 X9 g8 _% t                when 32 then
                        print "No";
4 u" n& z% a8 t+ Y# K3 D                else
                        print "Cancel";
                end;
2 L+ P7 P0 h1 J5 l. Z! S        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
6 a0 E' t! w/ J2 H4 |$ E        for j:=1 to Number_Of_Machine loop
) c7 |" |% C! [. ]5 z6 V                if j<i then
9 ~4 w. r- {/ r/ ^, ?5 @( {                        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
+ L" F9 L" o% J$ q, R                                D_From_To_Chart[j,i]:=0;
; b( Q# o) w1 v# u5 ~2 N                        else
: m3 A2 Q7 _) `3 r                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
; ~- U# M# E9 U: x: Y' c* u                                        EventController.stop;
                                end;
! t. E3 K3 l, }  a                        end;
8 C) ]) ~1 V: ]. h3 v4 e$ D                end;
9 \* b8 Z8 E- z) V4 U" t, B; q        next;
next;
( n6 i, Y0 }+ c; d; F
end;
- O7 e% R6 w" P5 j
0 F- B6 [' B1 a* n    Lines :=0;
% r, I8 ]( U( l: y" q        for i:1 to Number_Of_Machine loop
& U$ r) @7 x, K4 f, u        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
# ^8 Z  d0 \* T7 U                    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];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
' P3 E- w, ^8 G% {' u$ I                        PartsTable[6,Lines]:=j;
                end;
        next;
" L; E, a) Z' @0 W( X, @# H        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]);
* G0 J+ O* W' v' f, q% C9 V7 w0 w        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
# G, ?3 i) r% a8 [% _        Machine.label :=sprint("machine_",Rows);
8 Q" |6 M0 K/ Z" Y  W& z9 x        Machine.ExitCtrl :=ref(Leave);
' e* \, R, d0 v1 b       
        BufName :=sprint("BF",Rows);
" N" i! y. Y2 W0 a- v        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;
" V$ I+ V% x0 r- n; E        Buf.ProcTime :=0;
- Z, w8 @$ C# K1 I# Q3 W        .MaterialFlow.Connector.connect(Buf,Machine);
: o" R* H! b5 q5 n; c* V& Nnext;
; c' I: w+ ]! Z, C5 z6 {end;

五五

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

wudi

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