程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
" \$ J+ r$ C6 ?; ~        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
2 Z; K( r4 \3 P! K- Zdo
) t+ @* E! s$ b% z8 L" ^; |        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
5 N- r- j- k! A7 S- l                when 16 then
                        print "Yes";
                when 32 then
; @6 `. a( v/ S4 y0 B                        print "No";
                else
                        print "Cancel";
. W  R: b- T5 I! f                end;
6 j7 Q! L1 z+ y1 N        EventController.stop;
" E' l' i' ?: O8 Cend;
PartsTable.delete;
: Y3 w( b( A2 t" A* efor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
6 ]5 ^( h6 ?1 E3 F                        if D_From_To_Chart[j,i]<=0 then
1 l' l$ f1 V. V: x7 x                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
8 t$ _5 y: P# _8 O' J/ p& R5 X                        if j=i then
9 W5 u3 ]; s) @7 ~0 A6 Q3 O                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
5 N3 G3 ]0 t. k3 v' `( Q( V1 u                                        EventController.stop;
                                end;
                        end;
                end;
# _5 t0 \  x" K8 K) D" f' I' V, v        next;
& T$ V" Z7 }( u. K& u/ Ynext;
7 N- E- w# a4 N3 N( y
end;
1 U9 }& A" V4 [$ n7 U3 O
    Lines :=0;
  Q! j7 w; `! r, g6 Q' ?/ g        for i:1 to Number_Of_Machine loop
1 Z- R  N7 @1 |; T5 Q: D( O        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
" M: Q  L) A( w+ c5 h; j        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
, P3 T; c$ Q5 N                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
7 [2 L1 X! ^+ Z3 b  p! n5 N6 B                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
. z$ {" W; }/ ]: I5 a: Y5 c" K                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                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]);
        Machine.Name :=MachineName;
* S/ I/ g3 \& u) q1 V1 m        Machine.ProcTime :=5;
7 T' s& R& \, z3 R8 o        Machine.label :=sprint("machine_",Rows);
- q* I: l- L/ w! n, T        Machine.ExitCtrl :=ref(Leave);
       
        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]);
                Buf.Name :=BufName;
) j. q  L- Z3 Z3 t8 W5 A. o# l        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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