程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
: o( q: J$ Y7 O8 p: z* [" N% Dis
: T! `0 y2 b1 D  j        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
% o0 a5 Z8 H$ B+ J( k8 q( \        Machine,Buf:object;
4 P  }( C* A/ @4 l. v8 V# Cdo
9 u3 A( X8 d0 X7 m; `$ p9 }& V        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
% G  [8 R6 Y( D5 Y* Y3 ~                when 16 then
/ V, ]% U; P! u3 `/ ]) v1 O                        print "Yes";
                when 32 then
1 X2 _; m- S- |5 c6 ~  I0 X  f5 D                        print "No";
4 G. C7 T) O( r9 [5 _- B. v                else
                        print "Cancel";
9 k) I3 |! G6 t/ J# y8 c! [                end;
! ]4 d; w) K' i# _, E        EventController.stop;
& ]1 s1 v, [5 _5 M: j3 @end;
: ^) f$ ]! g. x$ F  C4 zPartsTable.delete;
0 ^8 Y) h0 D0 s) C$ o" vfor i:=1 to Number_Of_Machine loop
0 `% a4 ^, c5 K, H2 Y3 a$ z1 m        for j:=1 to Number_Of_Machine loop
  @( ~& S$ X! p2 _                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];
                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
6 c6 x, }1 ?' C* [# ^                        else
8 W. ^" p+ O; T3 i- _                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
1 l# u1 L8 f: M                                        EventController.stop;
                                end;
; X$ V4 }4 G( D, z1 b, |* m                        end;
# Y" l) l4 M1 s; w1 _; o, k                end;
        next;
9 `, M6 U. L  d3 L+ inext;

end;

" M8 d4 W: {' `8 i' j7 V0 n! w    Lines :=0;
        for i:1 to Number_Of_Machine loop
1 G) C  A1 B" a6 Q        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
& g8 p; L8 S% `$ Q, }                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
$ U4 t$ f* T0 i  g, P                        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;
9 j- y) P8 _. k* ]                        PartsTable[6,Lines]:=j;
                end;
, b0 P$ D: \8 R        next;
5 M& T0 R. d1 O        MachineName :=sprint("M",Rows);
/ x7 W& x+ g1 S7 k; H        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;
" I8 x8 \! c0 h% z        Machine.label :=sprint("machine_",Rows);
* Y3 H  ?0 |, u0 T' ?4 E        Machine.ExitCtrl :=ref(Leave);
, j; Z- K3 b+ |1 H; a$ j& Z1 V2 ?; F       
        BufName :=sprint("BF",Rows);
: f% c$ O: ~) Y9 ^& {% v0 X  W9 t        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 W4 x4 W7 a6 H% A# J        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
  ?: m3 }6 ]. c7 b' \- c% ^$ Q6 h        .MaterialFlow.Connector.connect(Buf,Machine);
next;
4 Y" `! Q, A# v5 Qend;

五五

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

wudi

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