程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
3 c6 h7 r9 }9 ]        MachineName,BufName:string;
5 O' q" Q8 g* I6 x- E9 A  f        Machine,Buf:object;
! J. ?! A+ L  ]+ d/ T9 @$ A' Ndo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
, \) r! F- x# d" p5 Y                inspect messageBox("Number Wrong...,",50,13)
/ z& `: j- D  ?: [                when 16 then
                        print "Yes";
" L$ g' \9 L# ]. J                when 32 then
, m3 s6 O! z) C$ t* H% x7 y  P, i                        print "No";
3 @' [1 \1 N; H( C- I! i                else
: v9 R& R1 V$ p# _1 q( _5 j                        print "Cancel";
                end;
        EventController.stop;
end;
9 {4 \6 b7 q' \) {2 t4 V6 x, C- j/ hPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
1 H8 O0 F1 B, {- H9 x                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
; q/ Y4 P& Z% G2 S                        end;
& ?6 n/ M9 @# F* M6 t) Z; a. S( I                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
( t9 z/ B1 h2 y2 G( G: V5 c                        else
                                if D_From_To_Chart[j,i]<=0 then
* ^- ^- g" [. T* |' B                                        messageBox("distence<=0...,",50,13);
8 ~% E. y, o  w" `7 ^3 b                                        EventController.stop;
2 D, F8 P% Y/ J                                end;
" n$ y% @$ j' V* M                        end;
                end;
5 C4 ]& R- }9 j- i/ z6 O        next;
( e6 F" R1 P- V; o6 V) \next;
: a/ J/ }& O' S9 t  T1 L
end;
3 m% s7 Y: M& b; a% ?& [, y# `( O: P
$ l- m6 U+ L( E* v    Lines :=0;
' [0 z8 |8 g, ~* ~# z3 G1 t        for i:1 to Number_Of_Machine loop
2 t8 q3 t( _2 B        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
1 F4 h; R* \' T% _            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
/ z# q. F% y% v1 K7 h0 N! z: w& F                            Lines :=Lines+1;
& x% T2 p0 U+ Q. f0 j( M" S                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
9 c$ r6 ~5 p4 v1 N" H                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
3 F" t6 y% j/ K- E                        PartsTable[3,Lines]:=sprint("Parts");
+ }* J- a& h4 N2 c* M                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
( H$ h3 ]& b4 s( }3 ?8 z        next;
        MachineName :=sprint("M",Rows);
$ t3 k, c) X  @: @$ u( 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]);
7 l6 w) r; W% r% m, H0 @# g        Machine.Name :=MachineName;
, ?9 k1 n7 x% [6 m3 L3 |6 P# c        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
. Z+ s3 n; ?4 d) G" }* r       
        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;
0 r1 u& Q0 Z, ?3 {& A* f        Buf.Capacity :=5000;
; E) X9 k4 L0 y* A$ e  O        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
+ s# I2 w4 t; t# z) \next;
end;
0 t- ~$ m+ A* k3 c  p6 q

五五

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

wudi

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