程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
) A4 ~' X! M& Uis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
/ o  u2 Q0 C  Y- I0 E' Q0 _3 L        if Number_Of_Machine/=D_From_To_Chart.YDim then
( n5 f! M* a: f9 {% a  |                inspect messageBox("Number Wrong...,",50,13)
; a( \' d) p7 w+ x                when 16 then
* ?4 L0 S1 O2 j) M                        print "Yes";
, ?8 @  ?4 Y$ y( `7 w2 ~9 G                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
end;
% [% e6 l. v! u$ o' _& [8 S9 iPartsTable.delete;
8 [% w" i( e" W8 C) Efor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
* ~# C, R. h0 W/ m5 f5 O: I6 M                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
. n6 Y! U8 I  e4 R) P                else
                        if j=i then
8 o: e* `$ b8 n% B1 ]/ Q( X                                D_From_To_Chart[j,i]:=0;
                        else
, n' Z# F# _. P$ u1 C                                if D_From_To_Chart[j,i]<=0 then
2 Y- Z9 c3 A( W; a: u& c; v) T                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
9 R- L- x6 L: w) ]0 O+ {, @  F4 D                        end;
                end;
        next;
next;
1 t0 \' w  X  U, h
% ~! _* e- j# g7 L: b1 xend;

7 u6 p+ e* |+ [" d# B5 N. L- P0 F    Lines :=0;
# H$ R; K- V9 |3 m" m        for i:1 to Number_Of_Machine loop
( j+ p2 ~5 G" d' L; p, R/ u        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
0 p" U& q' M! d0 A- a                    if W_From_To_Chart[j,Rows]>0 then
  E, W# i7 _$ ]) K  S                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
* x, \- }1 Z2 U# ?3 B                        PartsTable[3,Lines]:=sprint("Parts");
% z9 [5 u# c% {; t0 k) ~; P6 C                        PartsTable[5,Lines]:=Rows;
* _$ x" `9 ]( e/ D! ?+ N* U2 T                        PartsTable[6,Lines]:=j;
                end;
2 ?$ A% _1 _) x5 t/ v9 [        next;
! o% [% B7 H. [9 j! s+ W+ L9 g        MachineName :=sprint("M",Rows);
1 j$ b$ s" q0 _  `6 Q* y        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;
  ^% e7 Q2 T" i) @        Machine.ProcTime :=5;
+ h. Y2 i$ ^% G) ]- K3 r3 E1 j        Machine.label :=sprint("machine_",Rows);
  F; J+ ^# L6 d! ]2 N6 |" k        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
6 j3 B* U) o; R, {5 P. b        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]);
  g6 C+ y. i& z& N; ^8 J( N+ @' X                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
4 O! ~0 E, W- C9 f) V+ c        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
3 P9 i8 n( x6 j% |" A$ A" y

五五

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

wudi

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