程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
4 M( E: ?4 R7 v% h( X  }is
        i,j,Rows,Lines:integer;
3 ?" C& h4 ^- s0 d, y* y* \( \        MachineName,BufName:string;
        Machine,Buf:object;
: D' q; G7 A8 c; w. t# pdo
9 N4 [. D" _. ~1 y; E" o( n4 ~: A        if Number_Of_Machine/=D_From_To_Chart.YDim then
; N! Z3 a, h; S5 k                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
! c1 R8 R3 y) c5 R$ S! B( G; p                else
$ |) k5 N& A- U1 |9 T3 w# Z                        print "Cancel";
/ f# b* Q- U1 p; `' e3 I                end;
        EventController.stop;
end;
PartsTable.delete;
/ ?1 f/ S+ r! ?8 hfor i:=1 to Number_Of_Machine loop
/ i9 _' _1 L, P1 x$ ]        for j:=1 to Number_Of_Machine loop
, y9 T/ v* r$ e  @1 J6 K                if j<i then
/ y  s, i. D" Z" l) d2 }, V2 a                        if D_From_To_Chart[j,i]<=0 then
  a! R! l1 w+ J                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
+ [) M; Q+ h, o" e                        end;
! H& s4 l) W9 S. f# u+ |5 n* a                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
& I6 V. n) Q+ {) @! u- b, u                                if D_From_To_Chart[j,i]<=0 then
. Q( P6 A& S, i7 @                                        messageBox("distence<=0...,",50,13);
6 k& z8 ^( L3 R; e8 h0 ^0 q) q                                        EventController.stop;
                                end;
. V. \$ {7 Y- H, Z                        end;
- {5 R: L* w$ g  U& g+ X2 c                end;
        next;
next;
% x$ X0 z" p' a2 y% h' N
) u* w& N5 x3 ]0 Hend;
1 t" C7 V6 R- ]9 \% _1 b
    Lines :=0;
5 x9 e( S: p/ W, J6 \$ a6 h        for i:1 to Number_Of_Machine loop
; m1 D* K1 b$ m; T5 A        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
2 u2 T7 X) S8 V5 t0 @0 L9 S2 S) k        MachineSequence[2,i]:=Rows;
' ^/ G- C, c5 A. A1 h; A  C, U! \            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
1 ]1 m( Q, `- f: R                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
8 a6 ^. p! [& b% K, F! _! w                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
% a3 c5 \6 X1 h3 _                        PartsTable[3,Lines]:=sprint("Parts");
1 P6 R3 W6 H1 |  r' N9 F                        PartsTable[5,Lines]:=Rows;
+ |0 x* o7 \8 `9 g8 X                        PartsTable[6,Lines]:=j;
                end;
, U/ |+ M6 C! _3 ]! @        next;
& d) B  _! e/ K! F. I        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]);
; W/ m: B7 K6 t4 R0 n        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
- _1 s5 t& v8 z        Machine.ExitCtrl :=ref(Leave);
) \$ }" g: o! T" q8 O  O       
        BufName :=sprint("BF",Rows);
4 x. e, L4 o7 y; z& }        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]);
, p3 r' S6 p/ v) ~5 w! g                 Buf.Name :=BufName;
, M$ O$ _- h8 F% o( Y  b        Buf.Capacity :=5000;
7 X) b( l6 N  e+ v; D        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
: L9 F6 U! s" E- _9 mend;

五五

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

wudi

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