程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
1 c8 E( `  g7 h7 k        i,j,Rows,Lines:integer;
( F" M6 P2 ?' j+ v        MachineName,BufName:string;
        Machine,Buf:object;
( y+ G) m' j2 I7 d4 a4 Pdo
  I1 @* y; _& M8 v- }9 p        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
$ V' d0 i$ S0 S5 V* N                        print "No";
                else
  Z% T  L. Z7 I) k  ^5 L2 i                        print "Cancel";
3 D6 v) F, J3 H) Z# J' X7 P                end;
        EventController.stop;
. k3 ^5 M0 f; b& i% fend;
PartsTable.delete;
3 u0 q: s$ |4 tfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
# {! q! z* @  Y$ m3 w! c# t                if j<i then
2 Z( K$ @$ I2 b% T! Z6 K                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
( [) n9 b) g5 j2 k# `3 a                else
, Y, c- p5 z6 D8 t* ?: K0 M+ v                        if j=i then
+ b( j5 f1 I2 E. {4 R* _$ G                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
6 r$ n: s* E$ p' S9 c                                end;
" X% m# z8 M, }4 a* C1 D1 T& f$ S/ p                        end;
                end;
        next;
next;
* e7 t5 o" r9 A6 d5 Z
end;

- N% I; Y6 ~+ Z1 w) t+ c    Lines :=0;
        for i:1 to Number_Of_Machine loop
5 h% Q4 }. Z) i* v* E# c6 G7 G        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
1 l0 g* |: L$ ?  X) X                        PartsTable[3,Lines]:=sprint("Parts");
( B9 R' w- [- W9 A7 P- }/ T2 g                        PartsTable[5,Lines]:=Rows;
! e6 |5 ]3 ~  T7 _4 ^                        PartsTable[6,Lines]:=j;
+ t2 a: n* n% v3 |                end;
6 y  b: \: f" C) R2 @5 m1 C        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;
( }  P8 g7 V! \* R! Y7 W9 Y2 o& D5 T        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
+ y! p. J2 h: _0 X1 P) N: y        Machine.ExitCtrl :=ref(Leave);
8 A) k( U9 F* O! ~; U- L       
        BufName :=sprint("BF",Rows);
; S  E, U& E$ c' y$ _0 V' Y        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]);
! j8 U' N- i. [1 o- Q# ]                 Buf.Name :=BufName;
5 j# F% [4 G! m2 ~5 f' P3 M        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
$ |4 j: H+ A6 Z: C8 D3 Y4 f        .MaterialFlow.Connector.connect(Buf,Machine);
; `" u, a* c1 Onext;
2 n$ b8 B0 v. F- o: s& W; Send;
# C- F- O1 p6 Q- r+ V0 P3 |

五五

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

wudi

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