程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
; V% u0 L: K/ n, p* sis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
- o+ D$ t( a( ]; M5 n% }) f& x        Machine,Buf:object;
do
0 ?3 F7 W2 Y; B! D0 Z# x7 D        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
0 E# A& ~1 b4 y3 z: B+ v                        print "Yes";
                when 32 then
                        print "No";
                else
1 w0 p% s" F+ K                        print "Cancel";
                end;
        EventController.stop;
/ E9 B" q2 K) P2 bend;
8 b8 N$ p4 C$ ?7 [8 m3 A: Z$ d4 vPartsTable.delete;
+ ?3 k6 ~# D1 d/ [) Ufor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
8 B; t/ M! b7 k2 d, e                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
4 ?) K- d) K" t, r$ k% Q8 x                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
  _  b" N" X5 o6 q4 S4 v1 ?6 }                        end;
% s8 o( V+ D: ]                else
3 l3 r, d& R( r" G% z3 z# A; w. B                        if j=i then
- E& m; \& f6 m% _: x                                D_From_To_Chart[j,i]:=0;
                        else
9 f. W7 \- Y" a# A8 D0 t                                if D_From_To_Chart[j,i]<=0 then
9 B- t+ @$ ?$ O) o, M9 `* c" [                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
8 ]7 k" f6 ~" b* J9 I- I; Q) ]                                end;
                        end;
2 t3 ?  E; V2 _0 Y                end;
5 i6 n: K- _6 {        next;
  n" H3 ?9 |2 A- V% Vnext;
1 U& ?- a6 c9 A
2 @- x  H" `, M$ u0 xend;
5 R4 O# A8 ?8 {: U
    Lines :=0;
! o+ f- B9 E7 J& k" Y/ x6 [        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
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
# y2 Q2 \) e4 P' y                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
( k  q- v) S/ a2 V6 b                end;
        next;
3 B/ j7 K# O& P& }% ^" I+ d        MachineName :=sprint("M",Rows);
- d7 A9 h( \! l% o; b  m        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;
/ j. r1 N1 x+ l+ m, B        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
( g1 j' n! U5 V       
* L6 h9 H. G8 b$ r( v- X% c        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]);
5 Y) R) b. ?3 A* k  r3 S, ?                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
$ L4 B* H" {" u        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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