程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
) v' t) k" s' z. H) Vis
1 w/ a+ R+ m% g, `; Y& ]0 {        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
+ x3 G% W( p. a; q3 l' l        if Number_Of_Machine/=D_From_To_Chart.YDim then
; _& F( d7 b5 z2 H1 M                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
8 p" X: Y$ s. P3 Z6 i1 P( d                        print "No";
0 s/ {7 |! w9 b6 V                else
9 {) S4 C! b" I                        print "Cancel";
$ }  f5 Y" t3 C+ i4 {% B0 r% U5 G6 W7 d                end;
        EventController.stop;
end;
PartsTable.delete;
6 G' p/ S! S2 S- S! dfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
7 }; Z/ l7 l. `1 M$ G                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
$ [  E; e  i, W5 ?                        end;
. K, }5 M) o  k' j                else
% o+ q# C0 `- ^7 f- F4 a, `: O1 a                        if j=i then
+ v( H+ B2 z" E                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
. L* O6 P: c* F& W7 x( r0 L                                        messageBox("distence<=0...,",50,13);
. ?' G! k' N, o                                        EventController.stop;
                                end;
, a1 g; L7 s/ j6 o. j' c6 P" {, Y                        end;
                end;
        next;
* X$ {$ B: N* W6 Rnext;
: h6 E# U, M5 S% s0 _  j: E
+ {# T7 W+ {4 |/ e1 f! c6 ]6 n+ \. N) rend;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
! c% O4 w$ s: ?% u% K7 A& H9 C                    if W_From_To_Chart[j,Rows]>0 then
3 _8 ?* z# }# z, M; x( t, ^& ]                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
: `  r$ s$ o' Y$ N                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
4 j# R  B: o3 I5 O4 X: Q                        PartsTable[6,Lines]:=j;
                end;
        next;
1 P- g9 h, H& w  \- G0 ?        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]);
; ]$ w, O& k+ p7 {; H. A9 z4 B# ?5 p        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
4 @/ g$ n% G8 G# K- G1 O" d        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
- d, u0 S7 a5 z) u( [        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;
- i/ s+ z# s8 }' p$ S% I        Buf.Capacity :=5000;
  t1 L+ R' H8 Z  b' [3 g        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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