程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
# E- }2 _! V& [* c! d7 S8 W* Wis
  @: b: ?" ^4 q  I% [        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
* s% Y& S' l' A( I1 z        Machine,Buf:object;
do
4 Z- v& Q7 {* G* p/ h6 X( M. E        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
  l- Y- g  o+ w* D& n                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
# C/ K% Z0 s! w; K" v0 ^2 ~        EventController.stop;
$ S8 G7 P% t, h! q7 v9 Xend;
PartsTable.delete;
& ?3 a% r% e5 v; s7 }" @for i:=1 to Number_Of_Machine loop
) ~1 f: T7 q8 c& ]. }- [2 T        for j:=1 to Number_Of_Machine loop
: E& D  j  \5 s$ N                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
: x8 Z0 O' h( C: X                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
9 v. h* q7 Z( X! [0 }4 W+ z( W                        end;
2 {1 U7 L' W$ c& q& }                else
7 O0 h/ ?, G8 r2 g                        if j=i then
( E) {4 M( P0 X$ l  N                                D_From_To_Chart[j,i]:=0;
3 p/ r7 M/ n1 r" A                        else
3 \8 {# T  Z- F% f& I0 n                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
. G" A1 ^* t0 E  y                                        EventController.stop;
                                end;
8 p$ l8 u  y9 \* E; w& Q( X  `                        end;
% T+ `) p6 l0 h, O3 G                end;
        next;
* c0 K) ^" z, d7 dnext;

8 [8 S/ H) L  j) A- fend;
  N( W8 U/ i. ^2 h4 G
' R) c; x" Z8 m) F1 F8 }# W    Lines :=0;
        for i:1 to Number_Of_Machine loop
( e. d3 B  ]* D1 m1 |! U; T        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
( x1 N) s4 }  v9 b) O        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
" K, L& n! h$ @+ G& Z0 H                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
/ L4 S6 L" N7 @8 I: ?2 X+ y/ I. Z, {                        PartsTable[3,Lines]:=sprint("Parts");
5 y6 Y# T+ ~0 h' _. v                        PartsTable[5,Lines]:=Rows;
  ]( P3 `  R: b/ F4 s                        PartsTable[6,Lines]:=j;
                end;
* h# q3 a3 t% X  u        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]);
' c( b5 c- U4 f        Machine.Name :=MachineName;
6 d$ d  h8 F5 K  N- ^' [        Machine.ProcTime :=5;
4 ?, p/ i  S3 [1 H$ Y4 x6 x0 `+ T        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
5 x! Q1 F" I. P$ n7 C       
$ {% C8 `+ j8 T, [" W        BufName :=sprint("BF",Rows);
2 o3 t. z0 n7 l+ \4 U- ?( g        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]);
3 g5 {  \( Z7 D                 Buf.Name :=BufName;
! N# P( W# p# `! F7 [8 ]        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
0 s* e4 I# {/ z        .MaterialFlow.Connector.connect(Buf,Machine);
3 x8 l  U! C; [next;
end;

五五

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

wudi

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