程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
5 k5 z2 i( C* Z6 Wis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
# A% z6 c- S2 ]# @; \                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
2 A5 U- z- i! w% a# C9 X- G                        print "Yes";
                when 32 then
                        print "No";
. L# B3 G. Y% M' B8 y+ o& T8 I                else
% E& m1 Y0 f; R; M( B                        print "Cancel";
1 ~) L1 u6 i) P9 `4 `                end;
        EventController.stop;
end;
* }& K# {. i; r; T; \PartsTable.delete;
3 v' d6 {. [' l6 r) |2 S3 g/ Nfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
! }. B1 T' i6 ?" B' X2 d+ `8 T5 e# e                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
5 s& L+ i2 V, n4 a% }                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
  }& {" {* I7 U9 R  n( Z1 _5 G                        end;
# J( x! E/ t  r5 Y; p) S- l, e                else
                        if j=i then
& v& ^4 b5 @7 i+ e# F, b; r                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
3 \; j8 V7 u6 _2 p  u1 R$ H+ M4 j0 Q                                end;
( M" [! y6 \8 p7 X) J: d                        end;
                end;
        next;
( {- v4 W; V. ]( unext;

end;
- A# I1 t% c# q. W! v' _' n
4 X$ B5 u9 {5 F    Lines :=0;
        for i:1 to Number_Of_Machine loop
/ k3 D# G  \# \        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
) L  q0 \! X' j        MachineSequence[2,i]:=Rows;
8 P  ~1 p7 N/ a- |3 z4 _! K4 f            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
$ ?1 {9 I; c; Q6 F4 I                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
# d' F! s  X* u' ~                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
' H- @+ t  Y1 C7 Q2 K/ o1 d                end;
- G# h: s6 i6 n2 |        next;
6 t' k1 E) q+ x4 d        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]);
; S6 A1 D; P( A" Y$ U+ R        Machine.Name :=MachineName;
4 t. J* e) y8 O( u        Machine.ProcTime :=5;
% t) C/ D# l) t1 d3 ?# B6 u  m        Machine.label :=sprint("machine_",Rows);
/ n$ _) R# ?4 X2 O        Machine.ExitCtrl :=ref(Leave);
       
# g% [# R5 J1 B. G        BufName :=sprint("BF",Rows);
- a  b! c; \9 x- h9 `8 k( ~1 g7 Q3 ^        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]);
, \2 _* M& B- w; G: R                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
" B$ N9 R; i2 pnext;
end;

五五

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

wudi

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