程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
5 S- H+ k* z7 x/ \! _, N) N        i,j,Rows,Lines:integer;
2 P+ E# D( z1 T; A0 Z8 I        MachineName,BufName:string;
2 p6 w+ S8 _# z8 [9 ]' e8 [        Machine,Buf:object;
) Z3 ^1 \9 g0 G* Y# h$ kdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
; M' g6 F. L5 w4 q                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
* s; c# H3 Q3 F+ ~) `) F; g  x                        print "No";
                else
$ M, w& ]; z+ S/ O/ l3 D8 _                        print "Cancel";
                end;
, p. u3 t  E' x* M9 E        EventController.stop;
9 T/ s+ c) C- n* O  aend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
1 k. f# M6 j4 S8 Y        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
  [8 p$ s9 I- G/ |                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
5 i1 n- ?0 x( `                                        messageBox("distence<=0...,",50,13);
9 W0 H8 m) l, S                                        EventController.stop;
9 t* C: r# q$ I                                end;
                        end;
                end;
) x# `, _9 A* `* k        next;
next;
5 S/ q3 h) Q+ I. H4 Z# }- m
; X3 g( t* A* v; L0 I) c+ M2 o8 nend;
1 L( ?: g! m  L. F
$ X6 q1 u7 ]: a) q    Lines :=0;
1 A+ A* [1 a. o9 W- D/ g4 j) p        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
# S/ u/ d+ V9 m            for j:1 to Number_Of_Machine loop
% |0 ^; X1 z2 g& Q4 h7 m* x: s/ G) F                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
( \3 r( l  v6 t* j                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
" o% y. h2 c9 s, ~                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                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]);
  @) u2 L6 l6 q3 I, ^        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
0 T$ f) e( \# M- a1 d; a( j        Machine.ExitCtrl :=ref(Leave);
       
- Q- g- |" U0 Y, O: W7 Q        BufName :=sprint("BF",Rows);
! u5 y9 g' k  o  f        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;
* [2 N/ l( X0 ^0 N9 Q& F0 a        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
" \0 l5 x( N( S  F        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
, X: R0 E. k5 L7 Y* j/ e

五五

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

wudi

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