程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
! P9 v5 i& g: K' D; t( i9 t+ ?        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
+ [* ]4 X4 X# e8 B- X( v5 T        Machine,Buf:object;
do
& X; ?5 f- W2 S% A        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
' u; w& w% p. M+ j; k5 O% ?                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
1 l' n* |% s3 q' R/ E0 T8 A! j                else
                        print "Cancel";
2 M  V8 O6 ^- T) i) I                end;
" S# W4 r5 K0 P2 P2 z& g        EventController.stop;
end;
* g' A% q: |1 N" T! Q1 jPartsTable.delete;
for i:=1 to Number_Of_Machine loop
6 q7 Z7 N1 K) u% x% _* o        for j:=1 to Number_Of_Machine loop
                if j<i then
- ~$ ?" I8 m; q( Z# z                        if D_From_To_Chart[j,i]<=0 then
! d% E8 v$ _4 |/ H1 M) g& r- _% k5 w                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
5 o. J& a8 c' f5 K/ |- m                        if j=i then
# k; x( e% S+ e                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
                end;
  O0 D/ |1 G* l5 P) Y* V6 D        next;
  M) i0 t, r; {( J0 L  z4 ~next;
, n, C( e( y: M6 }
end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
0 A& E" }7 _; v3 ^0 b: k9 T' D        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
* \+ N" y1 {* r0 }7 @0 _9 d/ G            for j:1 to Number_Of_Machine loop
1 }' b+ w' v. W# Y7 W2 \9 V! g                    if W_From_To_Chart[j,Rows]>0 then
0 f  t3 d* U) P( O0 y, s7 n  D                            Lines :=Lines+1;
! Y: d2 S! N/ h! p2 \! |% L                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
' F$ A0 o0 Y7 |2 W& }# W) O                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
% s& p% P* }- i) ~" F* H; O5 R                        PartsTable[5,Lines]:=Rows;
$ @: K/ |* P4 o: U5 f                        PartsTable[6,Lines]:=j;
                end;
$ F% U9 b3 ^& J5 w, h  R- O+ ~        next;
0 |' G) @% }( @        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;
5 v9 U* Z% m8 v- X) P* X) u6 [        Machine.label :=sprint("machine_",Rows);
& z1 o) ]) ?' C/ J: i7 h) S5 k( X        Machine.ExitCtrl :=ref(Leave);
2 m2 ~! V2 l' w3 L0 s8 N$ R       
        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]);
                Buf.Name :=BufName;
        Buf.Capacity :=5000;
  n% v5 v; y, a" |2 C/ g        Buf.ProcTime :=0;
) |( i0 J4 |2 F5 h/ ^1 R: f$ k        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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