程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
: D* [$ w' ~5 a, r) h( S        MachineName,BufName:string;
) u2 g+ a; A$ w/ O/ X        Machine,Buf:object;
) p/ l% ]- ?4 S# S0 K. @# f+ qdo
: H  ^9 Y8 h8 W        if Number_Of_Machine/=D_From_To_Chart.YDim then
  l7 _& P; B: {' {                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
- \  B# @' _' ~, |3 o  X                        print "Yes";
                when 32 then
6 X: h) \7 Q# m4 D                        print "No";
6 G" A0 @1 l4 R5 L                else
                        print "Cancel";
                end;
; r; |% E5 ~: I/ Z( Y' q        EventController.stop;
end;
PartsTable.delete;
; J8 j# K7 R  Y) M. U4 g" ffor i:=1 to Number_Of_Machine loop
9 c* J: K/ M9 @" x        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
2 I$ h" i9 ~- v/ `" `$ E8 }                        end;
                else
) U3 I8 X. O* R4 a; ^9 C; A7 j                        if j=i then
                                D_From_To_Chart[j,i]:=0;
7 u- X3 i' P2 ~. j1 ]9 u                        else
+ b* n' a) o4 u8 X- G8 g: X8 J) g# z                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
& e% B+ P4 B  [  d                                        EventController.stop;
                                end;
! g5 L% x4 S/ p/ ^+ O, g                        end;
                end;
        next;
next;

end;

    Lines :=0;
7 G; k% h$ W0 \/ q        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
( m% u& q8 g6 p+ R: B% M: ^: k& N1 [# u        MachineSequence[2,i]:=Rows;
$ r3 O" Z9 Y8 [% s8 S9 S/ y! b            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
2 d; |/ K& G" g: L8 B# y                        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;
2 W" Y4 O  l( L( l9 E2 a  l' q                        PartsTable[6,Lines]:=j;
, H* I, F' e  X; x" c. a6 G6 O3 E                end;
6 T& D0 W6 ^3 |- w- w8 N        next;
- j% ^. F6 a* R: |  O6 H: m        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]);
  C. V- d. Z; \. K1 @+ i        Machine.Name :=MachineName;
) E3 J2 N" T  J% w        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
1 d+ q6 Q) W8 B) [       
8 o7 @; k0 r% Q2 @0 L        BufName :=sprint("BF",Rows);
. b. a& h/ w- |+ r        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;
3 I3 O9 s! W, U+ F; ^) R        Buf.Capacity :=5000;
8 ?8 q; h6 B) j4 M3 K        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
: ^6 e" o5 G5 X. t  f/ q+ F' Znext;
end;

五五

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

wudi

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