程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
7 r' o5 S0 w+ ^( x        Machine,Buf:object;
3 w% I' J( d! [- `1 Sdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
% J9 `7 S8 x0 `                when 16 then
                        print "Yes";
6 D/ b/ W" i) z5 @& q                when 32 then
6 b  k0 e) [. I8 y                        print "No";
                else
2 P$ ?; G5 Y" J                        print "Cancel";
* I7 q5 y) _6 [' e4 K. j# t                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
  O0 C* d% w: r, {" ]; j3 B3 X: u% R        for j:=1 to Number_Of_Machine loop
; z$ W5 n$ P4 R6 b" {; V  A: t                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
! C5 w# {1 \7 p% K! @                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
- A1 \, ]+ Y2 K1 d6 ^                        if j=i then
                                D_From_To_Chart[j,i]:=0;
5 h5 r- G! W1 X                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
1 [; U* H7 ^5 i' I3 j) N                                end;
                        end;
                end;
        next;
next;

end;

( g  r4 ^, I- B; `! N    Lines :=0;
        for i:1 to Number_Of_Machine loop
6 s, a( T2 _/ F% X) x$ i- a        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
* w) F* \2 X" V' u- j            for j:1 to Number_Of_Machine loop
  D7 ?4 @3 l9 m% p$ S1 O1 P                    if W_From_To_Chart[j,Rows]>0 then
8 e* n  M9 W5 H4 k5 K9 ]                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
' b) u  c: P1 k, q# O; p                        PartsTable[6,Lines]:=j;
                end;
% e! c1 z2 n2 s  O" t! z0 s# z0 T# _; L        next;
( Q0 P# Q7 `8 _! G5 n        MachineName :=sprint("M",Rows);
2 K& S; R  h% j8 A0 b; S+ F        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;
" h  k: A% M: |9 Y4 u4 ^7 c. M        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
, r0 R5 S$ p% L- v        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]);
9 n! z' j* `  m- j. ?                 Buf.Name :=BufName;
( I$ C' [* I( |, s        Buf.Capacity :=5000;
1 O5 p$ p( k. ?3 V/ H1 ^        Buf.ProcTime :=0;
/ ], T: B- F4 N+ R/ m        .MaterialFlow.Connector.connect(Buf,Machine);
3 F  ^- [: Q% p& J9 ~5 U3 Mnext;
end;
! w3 i2 `, O  }5 k' n4 U# ~

五五

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

wudi

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