程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
8 j) e, K9 `" y+ W4 E  g. C        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
# {# j$ |# @4 Ado
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
! T/ m& @2 x' d7 _- N9 j                when 16 then
- @$ Y# w( j# E                        print "Yes";
                when 32 then
) `2 L  t: u6 Q5 l' [                        print "No";
! g4 x- A) w* S1 p                else
                        print "Cancel";
                end;
        EventController.stop;
end;
* l) R/ p& z' `& i5 `+ rPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
6 q0 y4 R+ |. D- |                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
* m6 \  V1 B3 l                        end;
                else
8 m5 I) ~$ r  j                        if j=i then
. P: x/ g) I; k! [: y8 F                                D_From_To_Chart[j,i]:=0;
9 }; w% w7 U) S$ f                        else
                                if D_From_To_Chart[j,i]<=0 then
  U: y8 c* O1 n1 g9 j% F) F                                        messageBox("distence<=0...,",50,13);
" p& Z1 T8 s! R) i! {, M                                        EventController.stop;
% K, K) C: y1 @3 ?                                end;
; J4 z& H) w% N) L                        end;
4 J$ d/ [& [* t) q& o" j# _  r                end;
        next;
- I) W. c5 n8 T1 O! z0 Pnext;

: g2 g3 I5 E; q7 b/ Pend;
$ z3 `2 v" c2 s  V+ \! o
7 b& C7 R$ B0 x3 }7 u    Lines :=0;
$ V& g1 A9 e3 A        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
% B7 W/ @2 _! b( R7 J$ p$ u        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
6 r$ g. d5 S: j7 z5 o! B1 D                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
" C$ I% s$ ~; u- V( h$ R- C                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
2 M7 i4 d5 W' y" I( q        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;
6 N0 q8 [0 |$ C* c. k        Machine.label :=sprint("machine_",Rows);
5 w  F' T' K* ]        Machine.ExitCtrl :=ref(Leave);
       
6 Z: J7 d% x: g9 m6 j) x        BufName :=sprint("BF",Rows);
7 y+ [. K3 G, P# Q3 G  c        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;
: A- J4 C  R: S) \' V        Buf.Capacity :=5000;
2 v1 a( k& r: r( F8 L4 V        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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