程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
$ Y0 H* F+ z& }8 c' d, \5 A        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
. _* P  n& o" @0 l0 j  `7 L1 r        if Number_Of_Machine/=D_From_To_Chart.YDim then
3 d" I6 \: e1 p1 i1 X- D- N  B                inspect messageBox("Number Wrong...,",50,13)
1 Y0 m& J6 r6 ^0 I. K/ |                when 16 then
                        print "Yes";
7 l$ p0 c! k7 V$ }* \& _- I                when 32 then
! i! L9 M- ~+ t) H) h                        print "No";
" K8 C2 }) `/ N  l# y; \) S2 ]8 |                else
0 ~- e% Q, Z. n- k7 x2 z                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
# R6 v  T* u) B" N6 x$ Tfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
$ z4 U* ]8 e6 m" e: v                if j<i then
  G0 s, i* S1 D* S+ H                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
7 P1 j" k' O2 d8 i- \                        end;
6 D$ {  z  W- J& O$ b1 l                else
                        if j=i then
9 w- q6 w5 c5 U$ I# j  X9 S                                D_From_To_Chart[j,i]:=0;
7 N8 M- \' x) h0 u                        else
, b% r8 B3 L6 x' f; |/ H- F                                if D_From_To_Chart[j,i]<=0 then
/ ^# e- }- r" a) R' A. N                                        messageBox("distence<=0...,",50,13);
2 k7 i) i8 l. s' N& q7 i0 ?) N  ]                                        EventController.stop;
# {: X1 e( U1 W4 H/ B7 r                                end;
                        end;
5 Q; ~8 A9 F( l1 T! F, J, U                end;
0 ~: \) `! U7 }' A6 O. K7 K        next;
next;
: c+ A  ^7 a$ K9 I, b5 Q
) u* ]1 S4 R9 n% nend;

    Lines :=0;
; M" z8 X& a  J$ P# F3 _1 O        for i:1 to Number_Of_Machine loop
3 e2 f, P% B5 E) g$ @        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
3 G5 r' A2 |$ Z        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
0 M/ k: _5 D% `                    if W_From_To_Chart[j,Rows]>0 then
/ c# V" U! b2 V/ g* j                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
% V$ J# H* v1 V9 m- x5 k1 r                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
/ B. I% x/ [4 K. w                        PartsTable[6,Lines]:=j;
                end;
        next;
        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]);
' M( N" M* r0 A5 y        Machine.Name :=MachineName;
, `- t. P) y0 B7 U; ?+ p5 u4 T        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
; ~8 @+ s' x0 w+ Q8 x( z' G& g        Machine.ExitCtrl :=ref(Leave);
       
  X+ Q0 N. I% h: \# H3 w3 R" X2 `        BufName :=sprint("BF",Rows);
# D! p- m0 `' j7 k- |! O2 i5 w        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]);
5 m7 V% Z' b$ b! Z                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
! K9 P$ A3 d" U( }3 V4 X        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
* n$ v. B$ V5 q. L6 rnext;
end;

五五

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

wudi

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