程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
1 K! P# G! O/ Q% H! N+ yis
        i,j,Rows,Lines:integer;
4 c6 u/ d" V" q        MachineName,BufName:string;
# n% L- j" N& H6 S( P4 d        Machine,Buf:object;
do
7 M. P& Q9 z9 z# }! C# X0 p, U        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
) x5 l) m# K9 g/ A* k! D: Y                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
+ D' a( b* w6 X2 R/ G, }# _* N                end;
        EventController.stop;
end;
5 v# g# L) K9 P) d: @PartsTable.delete;
for i:=1 to Number_Of_Machine loop
3 `' |( i; s. Y$ Q- K# O* u- A        for j:=1 to Number_Of_Machine loop
                if j<i then
( O  C$ }, ~# O9 r  b- E5 w                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
+ K8 J6 V! y# e* E                        end;
2 s7 f0 _3 n; c$ v  F                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
$ O* v- \, I. |4 g7 s                                if D_From_To_Chart[j,i]<=0 then
# k9 z. d3 R4 S. y" C9 N                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
5 I% H- a: ]4 Y3 t( j                        end;
                end;
        next;
: a& J  L$ C/ f" Onext;
8 W  x$ N/ z9 l  Q% Y0 I5 E
end;

3 r! M0 }) F8 V; {    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
2 X, C1 Y  f' W' D. [            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
3 ?- B. M' f% O4 \9 Z, d, ^8 P/ V1 Q                            Lines :=Lines+1;
  I/ O, ^2 I' d- u" G2 K                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
) J: ]! o; v% Z. I5 S                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
( L1 q  x# r% V+ o' d                end;
        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]);
5 d3 Q: o9 u4 M' }" E0 ]% L5 U        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
2 d8 \: N* ~" v5 n, g; H* G        Machine.ExitCtrl :=ref(Leave);
       
7 I" H# S4 F5 b" h! [        BufName :=sprint("BF",Rows);
; F7 h  a9 ?  Y) f: 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]);
                Buf.Name :=BufName;
, A1 N2 @% R4 E, T( x* Y% l        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
1 I4 }# v8 w" ~% \8 ]3 K% H. x        .MaterialFlow.Connector.connect(Buf,Machine);
7 a  \1 b: J3 V# @5 @next;
end;

五五

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

wudi

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