程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
( M8 G* ~' ?, |is
        i,j,Rows,Lines:integer;
& O. t$ `& M) c3 |# G        MachineName,BufName:string;
% N7 M  e. D# F- X* Z5 n        Machine,Buf:object;
2 Y8 r; g3 @7 r4 f( G1 M9 jdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
2 z% t1 d+ S* ~4 P                inspect messageBox("Number Wrong...,",50,13)
) |: N3 Z  @! |- U% b$ X                when 16 then
3 D! `4 O; D$ X( l6 M                        print "Yes";
, N7 e4 ]  N: A6 k/ R0 R# j                when 32 then
1 {% [& t5 S; [/ ^9 ^- R- A% P2 r! V                        print "No";
& Y# T' ?; P* r3 {1 x5 W                else
, c& J; L" n% N. B                        print "Cancel";
                end;
        EventController.stop;
end;
& G( n" {0 [# }3 OPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
/ K$ @; L4 F" q% D! j7 j3 Z& U2 a                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
  N* A+ ^0 J% M7 o/ [! y& k                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
& K1 }; p* ~5 Y7 F1 A                else
  ~( j& k& C  c0 S$ P( D2 v0 q5 i                        if j=i then
1 q0 M; e# Y& s% `                                D_From_To_Chart[j,i]:=0;
                        else
, r+ K# \* |" h( h$ M                                if D_From_To_Chart[j,i]<=0 then
, T3 Q, f( [" f8 J/ \7 _                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
( K% {" m1 m) E( Q4 M6 F" }                                end;
                        end;
! }+ W! \0 a8 G* S6 s* k5 i7 j                end;
! o# n/ b/ D7 y- S$ N" T        next;
next;
/ Q6 D( a1 m$ l9 ]$ T: E7 w% Z
end;

3 k- C; u5 z0 t. Q% t' {    Lines :=0;
        for i:1 to Number_Of_Machine loop
6 B" J& ?. ]+ U8 h! [+ M        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
3 o0 c- h- _: G7 i8 H4 n& Q: k' M        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
) |( S' ~* P6 e! m                    if W_From_To_Chart[j,Rows]>0 then
) T* X1 l- e& S$ S' a                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
, g$ `; g, ^# i$ z, S- Q7 k( X                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
9 x" K% j! C9 [                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]);
5 u* o2 H" L, |! u# O; ?  r        Machine.Name :=MachineName;
; h, G9 f; E( B& S        Machine.ProcTime :=5;
# D& s, r2 G8 F2 O        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
8 q& @/ S% Y; z& X4 x, {       
9 b& Z& Q, [' X$ ^/ P2 }( H/ h  B' A" Z        BufName :=sprint("BF",Rows);
# g( ~, D" p# s, Q0 e3 i) O8 h        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;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
5 |, r& }* ~0 O4 a; [) E/ J        .MaterialFlow.Connector.connect(Buf,Machine);
! P, e, u6 {9 Z) ^- T9 Y; P) Ynext;
end;

五五

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

wudi

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