程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
2 ]; x8 P4 s/ o! ]is
* w( q2 T3 y' H% P$ S        i,j,Rows,Lines:integer;
) D) B5 m. ?- @7 ^, s. z5 y4 O  A6 ]        MachineName,BufName:string;
9 U, G  \* s4 U& J$ t        Machine,Buf:object;
do
3 x* M2 }  |/ z6 z        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
% U8 ~: Z; ~1 ]0 z7 I6 X# B3 k                        print "Yes";
7 \6 O. o+ A9 b" R                when 32 then
                        print "No";
( F/ [: A9 v  O3 L2 ^8 _                else
                        print "Cancel";
; d5 e& i* m. Y& c                end;
6 }8 D3 {, i, p! K        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
+ }3 D/ t6 n/ M. }                if j<i then
; U+ M3 S5 g' |2 z                        if D_From_To_Chart[j,i]<=0 then
, i, Z; u4 L7 m, ]                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
& p+ [1 S) C, D5 B( T' }/ J                        end;
; g5 o& E& c+ E- k! M" P* n                else
                        if j=i then
( m; U8 k1 B: ^- s8 R( k                                D_From_To_Chart[j,i]:=0;
2 N! v  S. D2 e9 P) s                        else
" l; G1 ^' _7 Q" a- t                                if D_From_To_Chart[j,i]<=0 then
* `, `+ C& Q( v- m- c" n                                        messageBox("distence<=0...,",50,13);
* C3 l3 ~3 X- z. o. E2 H  T4 f                                        EventController.stop;
                                end;
                        end;
1 R8 n2 q2 G  r% e/ J: ~- @                end;
        next;
. r1 ?+ H8 M1 i$ U8 a0 y, Bnext;
9 L/ |+ t6 t0 L9 D
end;
5 R1 f& H. D5 V4 G6 f
    Lines :=0;
        for i:1 to Number_Of_Machine loop
' B6 C$ c8 G7 T# [        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
: o) [3 ?( `( w        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
! ^- V5 F- N" L9 ~: U                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
& @+ C8 [5 p1 |; h2 w  y                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
- D% q3 B, f6 D) D! F8 W6 L! g                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
* m$ o4 r0 U- z. P& s                        PartsTable[6,Lines]:=j;
                end;
, o6 @2 V- O4 X' P# {2 v        next;
        MachineName :=sprint("M",Rows);
2 k/ X, z8 i$ @' K* B        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]);
6 W/ U; w/ _, m! x9 e        Machine.Name :=MachineName;
% R1 I7 B, ?5 ^2 n) ]' M- o! t9 {        Machine.ProcTime :=5;
( h- i, z* P+ \5 g        Machine.label :=sprint("machine_",Rows);
  I. K2 m4 z0 w) \! I        Machine.ExitCtrl :=ref(Leave);
9 W# k1 B6 G% i       
        BufName :=sprint("BF",Rows);
) Q) u4 D; [: d        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);
$ ^$ _! Q2 V6 _" U) ^4 @next;
" v3 X3 `' M1 bend;
: v, j& K4 S, R/ K! J, V- z

五五

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

wudi

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