程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
# M  r5 X' F2 F; \  U9 ^# |  _        i,j,Rows,Lines:integer;
) A9 o4 r: @% N- u        MachineName,BufName:string;
        Machine,Buf:object;
9 D; Z$ i6 G6 {, t* ~7 ddo
( f' {, L: C5 [% u! J        if Number_Of_Machine/=D_From_To_Chart.YDim then
8 B' c, A! a8 [; t+ S3 @                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
8 f8 W' E' ?2 D* @0 z' D7 `                        print "Yes";
/ E8 N1 w" y$ C* ?1 q) N                when 32 then
                        print "No";
4 o1 t3 x# y; X# _; D. V/ N                else
( [5 d7 I  O, l/ ~3 f/ ?2 _                        print "Cancel";
1 G8 B4 I: {5 Z" |                end;
        EventController.stop;
end;
PartsTable.delete;
! Z& j( V9 d1 W7 ]; k; Mfor i:=1 to Number_Of_Machine loop
6 \; M: ^# F# B6 L) v2 W/ n) S" H        for j:=1 to Number_Of_Machine loop
                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;
4 |, U# p; S; x& y3 q2 o                else
/ x; G9 Z9 o6 @6 V+ t' T- t                        if j=i then
- c- W! V! t& ]! a6 {3 R9 l& @                                D_From_To_Chart[j,i]:=0;
+ ~& W) T: r" Q% C                        else
0 g1 Z2 Z7 r2 k                                if D_From_To_Chart[j,i]<=0 then
% r7 H1 S0 U  A; |                                        messageBox("distence<=0...,",50,13);
$ R/ B' a6 c; K: _: T8 ^1 s                                        EventController.stop;
1 W0 |1 X' b) d4 M% m                                end;
: C( s# b( e- c0 c( @9 S; Z                        end;
                end;
9 m2 O5 a( g% ?* \# L1 q, d        next;
next;
8 M5 A4 D; _1 P, ]8 v
: t! Z+ e( F9 I6 J8 Y5 E* e! w/ k6 Gend;

0 F) k- O7 }$ t) u* ?, t# G5 ?    Lines :=0;
        for i:1 to Number_Of_Machine loop
! a; P! F9 O; t' V3 e; B( W4 q        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
  @! {/ {8 P. U1 T5 P* [5 s            for j:1 to Number_Of_Machine loop
$ W2 G& F: V8 D                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
$ B' i  l' [8 R                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
; N/ b4 s3 |0 F9 F/ x                        PartsTable[3,Lines]:=sprint("Parts");
# p/ x# g. t. y9 Z; ]                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
$ P  G. [2 y& n        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]);
        Machine.Name :=MachineName;
/ B- R8 N% x) a, y3 m+ K        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
) k1 l) g; z+ R/ s" [: h1 v        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
7 a6 h* a5 F8 k8 ?! j/ q        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]);
8 X' f1 _/ C# q4 \# S4 @                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
1 M, h( L9 U) x' z  M: B        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
& _/ j" f9 a' o& ]next;
end;

五五

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

wudi

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