程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
, s% `: ?0 P/ W* A( J6 o: H% kis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
4 X& f- b& E1 K        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
  O5 b) `' ~" h1 B' d- b9 k2 i                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
2 M8 u7 m' u. ?                        print "Yes";
1 X9 Q- @% z2 |: v2 C                when 32 then
                        print "No";
; b0 b2 r/ e) l+ _                else
                        print "Cancel";
                end;
        EventController.stop;
end;
% {, }* t1 q& B# p6 n9 l8 }3 RPartsTable.delete;
& {' S8 h0 C! C/ N0 \. [- [for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
: L6 Z8 W+ ~! g                if j<i then
6 W+ G; z7 f" r: U/ T4 p                        if D_From_To_Chart[j,i]<=0 then
6 M0 I5 p2 g1 d/ u  B8 P                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
9 X% w: H( I& S6 J                else
* |# x7 E7 O  C, |% P                        if j=i then
                                D_From_To_Chart[j,i]:=0;
$ b& ]. Y1 _. F+ t- U7 n) {# ?& c                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
1 H. |, C) h7 x0 z. @2 ^3 U) x  k                                        EventController.stop;
! p) A+ |: F- G* W                                end;
                        end;
# l5 p2 Q4 l. X! D# P, {) E                end;
5 y# M+ R8 S! I7 G2 a1 v$ \        next;
next;
! j- t' l4 L2 b! s8 d, v! x
end;
) e. L, s8 \: `1 Z9 ~. Z
    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
& e7 z# Q  q, r# d3 ~5 X0 U1 o# e                            Lines :=Lines+1;
/ Y0 J& a4 s6 @  n1 G! J8 V                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
8 V% v7 C* F0 e/ [7 ]                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
% y; i' ^6 {) o* |$ c" c                        PartsTable[3,Lines]:=sprint("Parts");
% ]: w+ h7 Y7 Z* g) G- |                        PartsTable[5,Lines]:=Rows;
+ z" v2 T" ^1 M' Z$ I                        PartsTable[6,Lines]:=j;
, d/ |% r7 T6 v. q                end;
' e% p+ `" }* P# u$ z( X  q& ?# C        next;
* y5 L; G3 G% Z- N3 a        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]);
% `9 L6 K5 ^6 m, {        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
# D" m0 |4 B. A6 x! J* }" c        Machine.label :=sprint("machine_",Rows);
: D- x7 m# ?  l+ w        Machine.ExitCtrl :=ref(Leave);
$ N2 E( j# T  k2 p       
8 A8 Z+ e- S) L8 g        BufName :=sprint("BF",Rows);
" C) k9 Z- Q# X5 b4 ]        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;
9 i9 Z: G  T2 o, F. b, i        Buf.Capacity :=5000;
$ l' s  R8 N5 G        Buf.ProcTime :=0;
+ y- F4 m6 K1 c9 Q" p        .MaterialFlow.Connector.connect(Buf,Machine);
1 a8 s8 a3 S( Inext;
end;

五五

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

wudi

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