程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
3 I; [5 g: K! F3 `% Mis
, u0 j# L' s, s& ^2 ?' }/ S& j% u        i,j,Rows,Lines:integer;
! S& r$ Q5 ^3 W% n1 N        MachineName,BufName:string;
        Machine,Buf:object;
# @# @3 V1 ^- v* [; G; Ldo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
/ ?+ _) x, i% l! r! S3 O- M                when 32 then
- b$ }; ?# T$ l" }7 ~                        print "No";
                else
                        print "Cancel";
                end;
3 _: C7 R" g, M9 v: h' ]  d        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
% \) N% `2 E$ c* V0 R! _7 |        for j:=1 to Number_Of_Machine loop
                if j<i then
+ _  ?! z. s- I& S                        if D_From_To_Chart[j,i]<=0 then
' z( z/ A" g8 s1 h) Q; a6 a) T                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
* ^  J% ?4 m1 ^/ \2 N5 ~) n                        end;
                else
/ f8 A3 n, I2 I1 O% `) S% X                        if j=i then
8 K) |# t  \' W8 B; e. W* G                                D_From_To_Chart[j,i]:=0;
3 W' u6 E! e$ Y: v$ C& U$ b7 j                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
/ G% @3 s9 e3 ?6 z" U( y0 o                        end;
                end;
: l) M# F. s9 R/ G        next;
next;
0 y7 p$ W* c9 q
end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
5 k! k4 h9 q- I* H        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
! |1 U& d$ O. H7 |! ?+ r                    if W_From_To_Chart[j,Rows]>0 then
7 T- v& \0 V: M8 S) W1 S' ]( D4 x                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
( X: O3 [( F, h7 y3 `# z3 ]! U6 O                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
# y6 ?6 Y1 U6 I8 ~                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
        MachineName :=sprint("M",Rows);
- \% v: T' C- W. j- _3 t5 T        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]);
  I: g  u1 w/ d+ G5 ]        Machine.Name :=MachineName;
! l& e' _1 h% L. P' I        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
! n6 N" @: F0 `. Z1 _0 P/ k- P        Machine.ExitCtrl :=ref(Leave);
       
) a! E" ]' |/ B  P        BufName :=sprint("BF",Rows);
0 B: i$ e7 b4 B9 l# l. z, P  v# o        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]);
9 R/ ?' t2 t( i3 i2 s% `  F                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
1 ]& ]) Y) U6 O, P        .MaterialFlow.Connector.connect(Buf,Machine);
- t5 g$ k( D$ u! d% J5 Enext;
end;

五五

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

wudi

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