程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
( a; C. V: t6 i) ]8 ]& p        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
  t5 v& Z0 A# K. n' t. Q                when 16 then
                        print "Yes";
' A, t+ {  h5 _8 C+ L, q2 C( s                when 32 then
                        print "No";
( ~3 h# c2 y6 I" P$ d: e                else
                        print "Cancel";
                end;
; j  l: {$ h1 v9 {# A( x7 K' ^! Y        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
; `5 n/ M2 u: R0 d                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
/ w4 `5 s4 ^7 `# t6 o3 A                        end;
% y0 i; g; R/ `7 o: r) U                else
# S$ b7 ?% N" Y. a5 F0 p                        if j=i then
                                D_From_To_Chart[j,i]:=0;
" R5 K# H2 ^& J5 U2 r7 N                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
2 @) E6 y# G) v6 j3 }$ w3 `                                end;
5 T) c0 k- n) t. R& G# u9 g                        end;
* q& i' k( V5 {6 N                end;
8 Z1 j1 q) d7 `- U1 Q* z: Z- z+ G        next;
next;

end;

    Lines :=0;
) S! l* c" c7 j/ r5 m% @        for i:1 to Number_Of_Machine loop
! M" r. X* R7 }0 g2 B8 U) U        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
* X# c# [) W. k        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
' n2 T: e" `+ B8 n- P                    if W_From_To_Chart[j,Rows]>0 then
! E& O; c( V* a9 v( S; A                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
4 V3 t+ U9 R: u: G1 ]: G  A                        PartsTable[3,Lines]:=sprint("Parts");
7 m! r; V" l$ `) \! B: D+ M9 t                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
3 {3 ^% B! [- ]4 D" r: [                end;
" g$ m, w* c  a& i! A        next;
4 S% R8 c9 a+ p0 T: E! ~2 V& x        MachineName :=sprint("M",Rows);
+ M  O- E7 f4 [        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;
  J+ |! W0 k3 a/ ~- a, q        Machine.ProcTime :=5;
1 V- K5 b# a; m4 ~5 b3 g9 w        Machine.label :=sprint("machine_",Rows);
( F. h8 h  \5 U        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]);
( i0 e; K  \+ a. T# E; {& R                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
( ]( d. _2 ^7 Z) E9 c, {; d+ h: W        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
+ c: J( v2 [: m! m4 p7 i( i* \next;
end;
8 `2 m1 Y" Z/ E& A5 o/ L# ?

五五

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

wudi

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