程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
. U9 a6 n. e' ois
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
/ V% v) Y: }5 j# n        Machine,Buf:object;
0 G: S) ?/ Y& ?# m1 q6 E' K9 V5 ndo
- b. p6 ^' T" E( ^$ h- P! N        if Number_Of_Machine/=D_From_To_Chart.YDim then
7 K+ t: Q3 ]0 i1 Q7 c, n! ~0 d                inspect messageBox("Number Wrong...,",50,13)
/ {) d* y4 T7 ^% y: I$ b( A                when 16 then
' j# F6 I5 [1 Y, x# L6 o                        print "Yes";
                when 32 then
                        print "No";
. \/ p5 t0 j# C$ C4 ~6 E                else
  E8 a+ p9 j  d+ m4 p                        print "Cancel";
6 G8 u, T+ D" O0 V                end;
( Z8 ?. b; y' W0 j        EventController.stop;
end;
PartsTable.delete;
7 U4 ~9 G9 ~; S8 Y9 b3 _+ M$ L9 ~for i:=1 to Number_Of_Machine loop
/ H  t# o, F+ x" |+ f        for j:=1 to Number_Of_Machine loop
0 U0 [, N  H2 t6 \7 m5 y                if j<i then
! k8 k+ W9 G+ V1 @2 A, F0 j                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
% Y5 P7 p9 _% J/ y                else
2 D1 ^. z3 E4 }+ k' |/ \7 n$ n                        if j=i then
" _+ q( [5 O; x                                D_From_To_Chart[j,i]:=0;
                        else
6 P8 c$ _2 e8 T) N, _+ n  R                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
                end;
3 c- L8 ~: Q9 F, n5 D* L: ]        next;
* Y+ m: ?3 }- z4 f  O: x. T9 R* _next;

end;
3 r" v( l# C; }7 e# ~- V& Q+ e
    Lines :=0;
9 K) l+ ?: @8 l  _1 A        for i:1 to Number_Of_Machine loop
8 w5 k. G0 l5 b" u3 J/ S6 D- \        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
2 W& E# Z8 I6 i3 P        MachineSequence[2,i]:=Rows;
- V( _4 d, [" f" C7 T  A            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
. L) K& z8 b6 Z: ]0 g2 G' t                            Lines :=Lines+1;
1 E! x6 p7 b9 e3 P; c$ f1 z8 x2 I                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
0 y3 B% m+ y5 u) A6 j                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
8 M1 Q- X. [$ ]  S                end;
6 T/ P# b( R! w- O# J        next;
$ k3 J( j  G% \* H/ D8 P. @        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]);
        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        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]);
                Buf.Name :=BufName;
" Y1 e* _  u! |) z: @# h; B        Buf.Capacity :=5000;
1 f: P$ x5 S* K$ E2 P1 [        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
' b0 d3 ^# ?+ F+ U# m+ \1 i

五五

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

wudi

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