程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
1 y( y4 l, x6 j2 k% w% u        Machine,Buf:object;
do
" S8 T. u& Z' N( h( }. M% J- }        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
6 `7 [' T% E% D  f( A" U* T                when 16 then
                        print "Yes";
2 T, `" n# c$ S2 j/ z/ S! o                when 32 then
                        print "No";
! X8 r" l, b' |& J) e2 }# U                else
                        print "Cancel";
" P1 u9 e2 s0 _4 h                end;
, @' q# L5 H; L( B! W2 N7 x* Q' J        EventController.stop;
end;
+ b7 o2 K; G! T, t2 q/ n- PPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
7 Z5 Q) E' L9 \- ]$ C# I6 b                        if D_From_To_Chart[j,i]<=0 then
& g  U1 w- `3 b, F. f8 `                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
# t7 M6 F" a- S1 R9 o1 d% w                        end;
& n6 l: p) l' V* D8 o% }                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
% C) G; K  G4 v: J) P7 h                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
, \5 \+ g* B2 x. ]7 A  D                                        EventController.stop;
  f- u! ~: y8 ?8 {                                end;
                        end;
' e- e% o6 }( y) r1 i/ Z! f( R8 ]                end;
" {- q# X- O# j        next;
3 F6 P# M2 `0 i1 _( m/ H7 x. }next;

* K6 n* |0 t3 S# Q7 k% tend;
8 `  G6 [6 z" i" H& l) U
    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
4 J+ @  J6 K: |8 X+ D        MachineSequence[2,i]:=Rows;
. n% F, y: a5 f* A- g            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
/ s2 r* C$ B: N3 s- v8 q                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
2 I. @2 g9 _$ W: @# i0 ]- Z                        PartsTable[6,Lines]:=j;
# A1 P' H* z: a) v                end;
3 }7 ?, ^* P, b6 T: y( R6 j% s9 I& g        next;
        MachineName :=sprint("M",Rows);
" Z* [2 h! H  H4 m7 A0 P        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;
( L* U( a  |: x: X5 _3 o( J        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
( x* H4 G: F4 K, v       
! ]1 M5 K9 z2 U        BufName :=sprint("BF",Rows);
, A* t0 o" |! B- I+ ~$ Y        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;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
$ F2 q) n0 H5 ^7 G, ^next;
end;
* x  C3 [" A+ L' b9 P: S$ y2 ^' k

五五

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

wudi

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