程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
, c  @; B8 ^+ F  @) r# H2 I        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
! o5 v1 ?4 v, m                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
- M- R4 S: i2 ?( V  Y) s                        print "Yes";
+ a3 O2 e  u0 e9 s" H) `# m                when 32 then
% S( u! S3 h: V& }  u7 |0 \# O+ R                        print "No";
                else
* Z2 M: r+ U3 Z5 v/ K% [* |                        print "Cancel";
                end;
        EventController.stop;
" H) j7 ^2 m4 D9 ?end;
, l8 ~+ X' B) u8 cPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
# {9 U# G; H3 `" t7 L" {                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
2 O7 ?4 H5 G+ h$ H                        end;
                else
, c/ ^' t8 N; a, q                        if j=i then
0 Y' ~& k# n( R3 \2 F8 z                                D_From_To_Chart[j,i]:=0;
                        else
# w% @/ F) l$ F) Z                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
4 [3 \0 i, t5 ?# G' x9 p                                end;
                        end;
2 @6 x7 s; s1 R6 i4 a7 q! o- R, o) Y9 X                end;
# X3 }' r3 o+ Y* n        next;
next;
4 |4 [1 x5 V6 e  F7 n  h
8 Z. h% D" g1 b( cend;
; F% N$ A+ f0 `$ _
; Q3 b7 U& [  t/ v    Lines :=0;
        for i:1 to Number_Of_Machine loop
! Y$ g( z9 C; T% o/ Y7 {$ d        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
2 ~  V. K# q5 Q* s& z        MachineSequence[2,i]:=Rows;
7 }' j1 }- m1 b4 H8 i0 C            for j:1 to Number_Of_Machine loop
                    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];
" E8 B% n0 ^; q# Y3 V8 q                        PartsTable[3,Lines]:=sprint("Parts");
( M. ~  B) p. u" b7 d8 I                        PartsTable[5,Lines]:=Rows;
0 ~) k. N- D/ t0 V4 D2 d) p/ o! Y' e1 n                        PartsTable[6,Lines]:=j;
: q+ k, j' v1 N+ F% c: P                end;
: y% G0 j% h; N$ Z- L, R; C! w: r        next;
* l9 P$ V* v, i9 _        MachineName :=sprint("M",Rows);
6 M2 O' f; d3 ?  v; b1 p, f1 ]. r7 ]        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]);
! A8 r. G1 w7 C2 j8 F; j        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
$ ?6 ?. v( S/ J& D) v4 |        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
+ u* X- a& m% X: U) i8 I# _       
% C+ G! f/ M8 K' R. i$ g: z        BufName :=sprint("BF",Rows);
1 Q, e. c& }* d8 t* `3 S2 g1 d0 g$ I        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;
        Buf.ProcTime :=0;
. y5 R5 j$ V* P8 V! u0 t1 l( R6 d        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
* r, e' p" i+ k3 l- O

五五

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

wudi

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