程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
7 j5 l6 Y# J' }' ?- E# m/ z. j: zis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
/ g+ o: B/ R0 O- r- t5 ~/ G/ `do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
* @9 I- I* f; L% P                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
" S; ?' `) d. K7 M0 G9 i" y  V- u                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
) }  A8 k5 J5 g" R1 `/ }                end;
9 A6 r2 j/ t$ r0 r        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
: g' a1 g/ G  I. F4 c        for j:=1 to Number_Of_Machine loop
1 i: J5 p. T1 S+ I                if j<i then
$ ^. Y' |: Z8 h7 l+ [6 O                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
! D5 x/ T! b4 B                        if j=i then
                                D_From_To_Chart[j,i]:=0;
7 j5 ]. J& U+ I8 a) Z                        else
) ^0 e2 [! z' w7 k' x) N                                if D_From_To_Chart[j,i]<=0 then
% `1 U8 ?3 j) I                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
9 T' Y+ @. C( j% Q/ y0 M  E9 W                        end;
& C# W. e3 X& C" `& V- R8 O                end;
; z0 K( E# f2 g9 s7 M& |/ o        next;
4 `+ K) }, M2 P# i: lnext;

end;
" f2 |5 C: K% W3 S% l5 g9 ]
    Lines :=0;
2 c  r! U5 P) p- f- |  Q) T7 T        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
& A$ W8 K. Y/ c" F6 p        MachineSequence[2,i]:=Rows;
6 w# K5 B. }7 Q# G' ~: k8 Z            for j:1 to Number_Of_Machine loop
( g4 W# z" q: o: J' B5 S- X                    if W_From_To_Chart[j,Rows]>0 then
$ z9 h) ^; @/ |  l) `1 z/ ~+ w/ Q                            Lines :=Lines+1;
1 R. }" a3 ]5 D8 k1 S5 b                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
' g$ ~7 j: w1 Q( F                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
' U* K6 v- i5 @                end;
4 g  I) x. K, i3 ^        next;
        MachineName :=sprint("M",Rows);
7 X( u2 u& ~- s8 |        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;
7 F2 ^( G% V; Y        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
2 N0 z7 ^" D4 k' J- u, T; o0 b% O        Machine.ExitCtrl :=ref(Leave);
       
  S/ X8 q8 D$ H& v6 J1 u  N        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;
1 v8 B) F0 R/ w        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
7 W9 q4 @( t" n- R; }& q9 ]        .MaterialFlow.Connector.connect(Buf,Machine);
' h9 v6 j8 F% e* I8 |5 @next;
1 b$ Z; |! a% ]end;

五五

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

wudi

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