程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
; C% D7 f1 L0 H( {! S5 a) L        MachineName,BufName:string;
+ n/ ~, X  }: ?* R        Machine,Buf:object;
do
% `5 k0 [9 w# W        if Number_Of_Machine/=D_From_To_Chart.YDim then
, K1 _/ a+ V; B$ R; q( C                inspect messageBox("Number Wrong...,",50,13)
  c: f  J% M. l& n                when 16 then
, V* j4 d/ L2 U, R- z. ]8 u" b# B$ t                        print "Yes";
                when 32 then
  n" D6 x  v7 h6 [9 e* Z                        print "No";
3 k6 a5 D- R5 j; y/ g                else
: G" w5 P3 Q& B) ~                        print "Cancel";
                end;
) y9 E# p& z$ ?! q! U        EventController.stop;
, c7 y, y; i% \* J; L  _! J; pend;
PartsTable.delete;
. v2 b6 f0 @% a" _2 [: g2 o- |* Ufor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
2 a- `/ k8 s( p% S* ~9 C                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
$ h- L" Z" H+ N: s                else
0 j+ n; ~4 }; [                        if j=i then
/ J5 m% u' V4 A  Q' h; }                                D_From_To_Chart[j,i]:=0;
                        else
9 k6 @3 l, k. z2 p% S  @" s                                if D_From_To_Chart[j,i]<=0 then
$ p" u2 }+ r( v; ]& Z5 a6 _                                        messageBox("distence<=0...,",50,13);
  r5 g( e  O) P. Y                                        EventController.stop;
                                end;
                        end;
6 w/ G+ h9 _/ ]0 Z3 E  n% B                end;
        next;
8 F1 e) y0 c/ n; W/ xnext;

3 W' Q! `/ Z/ H# ]# i) L3 Bend;
: B* x4 x' v0 d  ?! P4 l8 z
2 B6 M# Q+ j9 ~( e. I    Lines :=0;
        for i:1 to Number_Of_Machine loop
9 P, n- n5 n8 O0 ~7 X        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
; m/ `7 E% \' g& o! |* u        MachineSequence[2,i]:=Rows;
+ Q& C$ _* B4 g' K- R            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
/ W3 L& Z9 x3 X! J9 x* P" n                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
6 A( p) Q& h# f4 E1 e                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
) q8 f7 s. W. g                        PartsTable[5,Lines]:=Rows;
/ @1 Y6 e0 Q/ Z" m9 f                        PartsTable[6,Lines]:=j;
                end;
        next;
, t$ {* U1 ~4 N4 ^2 y        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]);
9 P4 p5 F; [1 n* r4 P; e2 K! g        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
9 ]0 o* l) M' }$ F        Machine.label :=sprint("machine_",Rows);
: c: ~0 S. h7 ^        Machine.ExitCtrl :=ref(Leave);
       
! T; G9 ?- Y" O' L2 V        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]);
( v( z; P7 w- X- d                 Buf.Name :=BufName;
) u3 j5 P' v5 C$ |5 A* M! n        Buf.Capacity :=5000;
* }# @3 k0 @, S8 |        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
( W; b6 T. I3 {- [, _0 Uend;
8 {& ?9 P4 k- \( a

五五

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

wudi

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