程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
* A0 g* g) _, ~$ i; {; A2 v' Z: F. ris
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
: w2 c' P: \* o/ }0 Z: k! w        Machine,Buf:object;
$ Y2 l% E: C) D8 X, W0 v/ sdo
3 r! D% X; e7 w( S        if Number_Of_Machine/=D_From_To_Chart.YDim then
: v" _& P$ ?; J1 z* h3 V                inspect messageBox("Number Wrong...,",50,13)
: c. Z- H/ @$ `4 n+ n6 M* c                when 16 then
& Y& k) ^$ ^7 ^9 g$ u. q7 Q, @                        print "Yes";
  |, ^$ _* K0 _# s0 h                when 32 then
1 |* K7 i% L( F3 l! n1 D                        print "No";
                else
                        print "Cancel";
6 I$ a) z" y/ b( ^, a                end;
2 A. `' J2 ~3 d3 P, ?        EventController.stop;
1 t  O" k6 r+ Q* L4 Vend;
PartsTable.delete;
  q4 c3 O2 ]$ q# h( g, p! q, s) kfor i:=1 to Number_Of_Machine loop
" f6 E. ]) ^& ~( g! m        for j:=1 to Number_Of_Machine loop
$ E; {; G  [. Z! c( ^& \                if j<i then
$ V2 e7 \6 u/ n- D7 \' A                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
; i$ o, G, X; k( b9 o                        end;
                else
- V7 t# b: ]; T; s! ^5 x: n6 @                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
5 F7 [1 k) \. M* l& s                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
  F# p3 n' I1 E% p                                end;
                        end;
% @" O- ?. B5 e' ]9 u6 G+ n9 _                end;
# e0 f' B7 A0 G0 H# I6 _* b- W, E        next;
( q! D( W  i2 Q; k% _next;
5 s: C! o4 v+ l* l
end;

/ a9 J8 ]' T  v. c, {0 T    Lines :=0;
3 O: r/ U. p& A; m# |( _        for i:1 to Number_Of_Machine loop
! f5 D6 O2 i; |% [* [: f. n        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
, i$ v) n) Y8 N: l, n                    if W_From_To_Chart[j,Rows]>0 then
+ ?( N$ a1 s3 e9 v4 r1 C. Q" g1 [7 [. x                            Lines :=Lines+1;
$ {# S7 t) N8 l; a) M                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
' X& k  o" |+ N# H, p" m) h- a" j                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
: k8 s# O; I- ^  p! ^/ h) x4 |, G+ _                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
" k- I* H/ I: H, M: a/ d        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]);
        Machine.Name :=MachineName;
1 x. e( M2 `0 _: e, U. ]        Machine.ProcTime :=5;
: o  _/ @; i& m  k( ^5 |8 ]        Machine.label :=sprint("machine_",Rows);
2 J5 a  y2 L. y* b: V8 U4 a        Machine.ExitCtrl :=ref(Leave);
* [% j! b- C( w4 n9 O  n* d; o       
7 y: ]3 a6 j' |7 o* M        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]);
                Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
: ?! H9 V. l) e$ _9 [9 jend;

五五

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

wudi

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