程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
9 X1 G. ]5 v& q- z7 n) e7 u        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
; H5 A# r1 q8 y! q3 s                inspect messageBox("Number Wrong...,",50,13)
( l9 Y8 w1 o, h                when 16 then
7 v9 B5 B# |' `& L  C8 i( o                        print "Yes";
                when 32 then
                        print "No";
                else
3 H. a: u6 z3 H( f1 C                        print "Cancel";
+ w- Y0 K5 U6 L4 E                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
" s' D' c# |: B        for j:=1 to Number_Of_Machine loop
                if j<i then
! t4 o3 M7 @7 r0 h                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
$ C1 H7 w* {& U                else
) d, D' j# H8 g1 L                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
# {  ~& N# @( {1 m7 _                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
- i- r  `9 N) a5 z# m: a( W                                        EventController.stop;
                                end;
                        end;
                end;
- x. p4 U# R5 s" }        next;
) O8 }5 H3 R  E$ w' k- n* gnext;
8 }7 `, ~2 K6 g  @
end;

    Lines :=0;
. B( t# g. V: S        for i:1 to Number_Of_Machine loop
( L& ?; R( k% C7 W! D0 g        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
# h( y5 }' U5 |  \) R/ a            for j:1 to Number_Of_Machine loop
# b  S1 L: _+ |                    if W_From_To_Chart[j,Rows]>0 then
3 L0 N& n7 L, d7 l& L3 x                            Lines :=Lines+1;
& K2 p) H2 |! ^. d4 ~$ r$ a                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
  E, q. h/ k) M9 v$ {( K3 N( n                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
( R# P8 k* M; f# _1 y                        PartsTable[6,Lines]:=j;
* c6 h1 o/ T! L4 ]6 u/ `3 p! E, c                end;
        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;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
8 x& C. j1 E: g# w. E+ a        Machine.ExitCtrl :=ref(Leave);
       
1 q. x( ]* K( w        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]);
6 j  z' I9 T6 ~+ y6 E7 X( D  g; @; y                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
& g4 ~$ J' y* Z) T$ Z" A        Buf.ProcTime :=0;
* Z9 b: d3 K1 D/ i) E( M        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
: K$ ?$ k, ]4 ~4 a% q, p6 T

五五

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

wudi

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