程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
8 k9 H) B4 c3 e2 C; f! e- y9 b4 J        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
' d+ a. Y8 D. K& S* O$ ]8 v) ndo
5 C/ R2 G) [$ _& m' S. h: l        if Number_Of_Machine/=D_From_To_Chart.YDim then
+ Z+ i, E" ^; I+ i, f1 w& G                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
7 n+ |1 J, A* B7 B                        print "Yes";
$ ~7 I* z  c. j$ g2 p                when 32 then
                        print "No";
                else
+ B0 c- H, B" F! m4 e5 }5 a: @5 `                        print "Cancel";
% W3 h* P) l  |7 K2 ]                end;
        EventController.stop;
end;
4 U8 w( d! T9 c$ [2 p6 fPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
5 P7 V* l, M- _# X% U5 |8 M* ?                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
5 c6 m& C/ a) P' @5 Q                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
$ v4 u# U! |# a7 U& V! s6 I+ h                        end;
                else
; C' a7 f5 J' Y+ e                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
4 U3 U! P$ t8 \. t$ C                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
$ R# A& V: w; a$ x) A. p& w( D7 D+ v. R) p                                        EventController.stop;
                                end;
                        end;
                end;
        next;
next;

end;

. r- s- x1 z- \    Lines :=0;
, W8 S; b: H0 A$ |/ [, d; E        for i:1 to Number_Of_Machine loop
$ ~% f& G$ D  W& Z4 D        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
$ [3 Z5 z0 Y+ S# I, y                    if W_From_To_Chart[j,Rows]>0 then
, F" \* \3 a1 K$ ^                            Lines :=Lines+1;
3 M: w6 n- [7 e3 r                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
; A  G. [6 x" _) E6 a) K                        PartsTable[3,Lines]:=sprint("Parts");
8 }; a* D9 m1 w3 L' C) y! F& O) z                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
: R- x' {- S) t/ t1 W                end;
        next;
7 G# [7 d% f4 a        MachineName :=sprint("M",Rows);
1 D" w- W5 g8 J: B2 A        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]);
" A6 D" Y4 X: C$ X        Machine.Name :=MachineName;
6 h9 C( l$ I  C4 O9 [        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
8 r: @/ m# T) Q1 s* W* i! ]        Machine.ExitCtrl :=ref(Leave);
; _. v4 g  _' B1 o0 O       
- _' ~( g; Y6 K        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]);
* ]: s  X- d9 F                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
! a( {+ N9 t7 E6 D' I) p        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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