程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
1 L# L( B) J5 p0 O( |& G7 c% Z9 j- @2 y        i,j,Rows,Lines:integer;
- c5 \3 ~, e0 _        MachineName,BufName:string;
) i) O2 O/ K' b2 b        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
: `3 }: c: ]2 p2 ^" n                        print "No";
7 S2 ?" B% \( \                else
                        print "Cancel";
( |- J4 p2 X& N" P$ E                end;
        EventController.stop;
end;
3 g2 ~$ l9 U" f6 n4 sPartsTable.delete;
for i:=1 to Number_Of_Machine loop
( ?* u1 g) a8 T        for j:=1 to Number_Of_Machine loop
                if j<i then
4 B+ S) E' [, s/ d) I- T8 O2 U                        if D_From_To_Chart[j,i]<=0 then
( b7 y/ r5 a& E" c0 P" h( i3 [" N                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
$ _1 m2 f+ A* g3 E' y                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
' r" @% T- e' @8 y% r                        else
, t+ Q8 S4 [6 |                                if D_From_To_Chart[j,i]<=0 then
- G; u, I, o% c" p" y! I8 c                                        messageBox("distence<=0...,",50,13);
8 I$ z8 c8 o3 i$ n                                        EventController.stop;
0 _0 j5 `- X! F/ ]                                end;
1 N. l( w6 t! V0 a                        end;
                end;
        next;
next;
) b& x; {) [! O5 r5 \6 A) o
end;

- o' `# W; u8 z4 |- l; f    Lines :=0;
        for i:1 to Number_Of_Machine loop
0 _+ m. B: Y% k! `7 ]$ H        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
- ?5 H6 k4 \5 K$ ?                            Lines :=Lines+1;
. E5 `) Q# O7 ~) b5 K                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
& K" Z/ _; B9 }: D                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
3 Y! [- U" ~: e7 x8 G% C                        PartsTable[5,Lines]:=Rows;
+ H; W+ u5 t! b) F. W                        PartsTable[6,Lines]:=j;
                end;
, R# ^% ^# ]# h" B7 m2 T' L        next;
1 t- b0 ]+ T9 h3 a% Z" w! y1 ?+ l        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;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
0 r& `$ M, l9 E8 y       
        BufName :=sprint("BF",Rows);
        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]);
. x" H7 H+ C- K; m8 H. P; H7 V- E                 Buf.Name :=BufName;
  o  e: L) k0 g- e! ^9 n        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
9 V6 S0 R) T. @& c8 _/ qnext;
! b3 K/ \. C+ C0 C- iend;
( v% \0 k7 V" l; r

五五

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

wudi

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