程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
$ r1 r( [( H, Z7 o+ a) ~  h: _+ T9 d        if Number_Of_Machine/=D_From_To_Chart.YDim then
0 n( C2 _! F$ b* n) V                inspect messageBox("Number Wrong...,",50,13)
5 Y& }- F/ k. a1 u) L: I) i                when 16 then
                        print "Yes";
                when 32 then
7 o4 Y0 g: N! c4 p( x                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
4 p4 g: T! h  b4 H% E: hend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
- t2 q( g9 c  \9 \' @/ e1 v4 }        for j:=1 to Number_Of_Machine loop
- H' _, l0 L8 e                if j<i then
- E! K/ C% _# \3 }8 U                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
" o- Q% |8 P2 ^  l! c9 H& E' `                        end;
                else
                        if j=i then
# Y7 l0 N) B' m+ ^                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
2 ]6 K  p/ h! E* ~# @: @# Q                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
6 s  D) {/ W# R) s/ G                                end;
                        end;
, P9 q5 i+ G1 y5 h                end;
9 }( \) I7 l, o' c- s        next;
: i. d+ O1 ^  vnext;
9 `; P! h  N" e4 G7 I
2 ~. X& R4 W% X  \end;

% h/ r  J7 B- H7 r1 l# Q2 x* Q" b6 J    Lines :=0;
0 ]3 F3 e' A% o$ R& n& m$ M% [8 Y        for i:1 to Number_Of_Machine loop
+ t  L: @* D! ?        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
- U* x/ L) h# p1 q1 S        MachineSequence[2,i]:=Rows;
  x$ N+ ^, U7 [: w% y8 D            for j:1 to Number_Of_Machine loop
; k$ M7 z& `# r- {& H5 @9 `& Y                    if W_From_To_Chart[j,Rows]>0 then
$ x, ?( I# M. F' s                            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;
                        PartsTable[6,Lines]:=j;
                end;
        next;
1 m$ \; k% g# T! D        MachineName :=sprint("M",Rows);
& \/ {9 g" X: ~$ s$ g$ N# ^        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]);
& `+ z$ E- @% K0 S2 J# g        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
6 e/ n' b/ S3 x+ m9 L" l, J  ?        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
& Q! O: u& N9 A# M: z) h        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]);
                Buf.Name :=BufName;
        Buf.Capacity :=5000;
$ P" X  S: s! R$ E: ?! ?2 m7 n        Buf.ProcTime :=0;
' v5 ~# }; r$ `1 l        .MaterialFlow.Connector.connect(Buf,Machine);
5 }+ a9 k# N7 J! P1 ^1 S: i0 u6 `next;
end;

五五

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

wudi

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