程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
. [- s# p2 O( K; q2 y* Z+ I        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
% L% a- K- t: P        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
% p  W: {# b# q7 Q: w                when 16 then
                        print "Yes";
! m$ `8 S- p9 f* C( p9 N0 F                when 32 then
4 @/ A6 S) j8 ]9 X) w8 H: D                        print "No";
  }# B  ?) J$ S4 n# I                else
                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
4 C/ D! ^. \" n4 m                if j<i then
6 v- F7 d$ K6 ^- _                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
8 G+ X1 n4 }2 b% D9 z: W                        end;
1 y+ X/ b+ G+ u7 N' f4 V                else
7 o4 y/ L6 h$ \5 c4 `                        if j=i then
3 v9 t) S- j7 _  `1 \* a8 Y) S% `                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
; x5 v9 X, e, o8 Q  s  a+ N                                        EventController.stop;
. x1 \7 V* Q! i5 C2 k                                end;
1 M4 g2 Y% L# C' h                        end;
                end;
$ H7 l/ q# b0 R: p  i8 P8 @        next;
next;
: p2 T$ S, ?7 w# o: f4 z( }% @
: k( R% @" `) E/ ^- gend;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
; ~7 a8 p5 w! b3 y' }2 B        MachineSequence[2,i]:=Rows;
" c: `+ l& l3 C4 G; W8 m: o+ ^0 u- g            for j:1 to Number_Of_Machine loop
! |. K0 o) \% P+ d& E                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
6 t5 k4 N) Q) ?  {+ ]3 }0 N                        PartsTable[3,Lines]:=sprint("Parts");
# B' O( X7 U+ d1 h2 \& h# T4 \( K                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
9 W  j' G' m, |' H, r5 L                end;
& Q; i- o0 n( n7 p+ R        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]);
' N5 O* y, e# E" ?5 E0 M) H        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
2 J) {$ ~( n9 J. ^3 S3 c        Machine.label :=sprint("machine_",Rows);
        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]);
' W2 [* R! I) X  o( r: ~: T                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
3 h8 @/ Y+ u1 m' j        Buf.ProcTime :=0;
  p  t9 j' e1 C1 c# f0 W( b9 L        .MaterialFlow.Connector.connect(Buf,Machine);
next;
4 D2 k8 U! d' K! v: y' }2 |* pend;
/ j+ A6 D7 E- `9 Z

五五

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

wudi

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