程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
9 j4 w- D+ Y$ [/ n7 J7 yis
' S. H' d9 z5 r; C6 i* B        i,j,Rows,Lines:integer;
  b+ z. n1 i8 c- x' b! ~6 U        MachineName,BufName:string;
6 O( x* {! Q9 f- a( J) O" W/ p        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
1 g# c1 ^1 s, S# b                        print "Yes";
                when 32 then
                        print "No";
/ h7 `8 T* i6 G$ C4 p0 Z: M                else
                        print "Cancel";
                end;
        EventController.stop;
end;
/ F8 Y4 B) w4 d, GPartsTable.delete;
  m7 }3 d* C7 l- Yfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
2 x- D; Y0 @6 g  [- Z- k                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
2 }" \9 z' A& M+ C2 h: D/ C2 Z: e                                D_From_To_Chart[j,i]:=0;
                        else
1 {3 [  q% Z% k                                if D_From_To_Chart[j,i]<=0 then
! A% s* m0 C* J0 v                                        messageBox("distence<=0...,",50,13);
$ J* A, z2 f* M1 Q# L                                        EventController.stop;
- A2 W/ n) h6 B+ K$ f/ q                                end;
                        end;
3 v- K- I7 H' F                end;
; x5 p, r1 `6 [3 T3 y6 |2 e& O% L        next;
) h4 X, [$ s; O5 l& v" T) |# Bnext;

* k7 T5 @8 ?2 v& h) [, k- N5 c2 nend;

! T3 w# M: h4 R' Z7 Q4 H3 `) T    Lines :=0;
" F) ^/ n. f5 n4 r' H% B        for i:1 to Number_Of_Machine loop
  L& H& \# S' U6 a( \; _        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
1 K+ X7 r. J7 g! D                            Lines :=Lines+1;
, l1 R$ j1 y; }                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
  ^/ h' f, n; g% x! E. S                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
, W8 m, |" a6 g+ k                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
, B# a! J1 {$ Z" `% J2 }                        PartsTable[6,Lines]:=j;
* V' k) O; _% z9 s                end;
        next;
" m# G+ J; r" k; v        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;
4 H5 P+ e; `# L1 O7 i        Machine.ProcTime :=5;
) J8 O0 u1 N( {$ r; K        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
5 L8 t0 w/ N3 w' }; @5 H        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]);
7 G" Q5 z& R5 |* Z! p                 Buf.Name :=BufName;
7 ?$ k& U. p4 F# @% |        Buf.Capacity :=5000;
' @2 ^) G- Z; p  B2 P        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
- f4 O7 v3 B$ ^! h4 t! onext;
8 Q* Y; D' W  w0 ^! E* X  Qend;

五五

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

wudi

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