程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
3 @  `& B2 A' C! H. ois
        i,j,Rows,Lines:integer;
' }/ w$ r: {9 [1 I3 k+ l* I+ j        MachineName,BufName:string;
        Machine,Buf:object;
* D5 L# v/ g! h3 _1 Ddo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
4 X8 T9 |2 `  G                when 16 then
                        print "Yes";
$ o3 m# c& b- a; Z$ H# A% {" D9 C                when 32 then
, Z4 P6 ^, A$ t- B% j! |) D% P                        print "No";
" t% }$ u. T; C" ~                else
                        print "Cancel";
& s7 p& c+ U# V5 m4 O+ R                end;
  r% p! v- g, [8 c* f        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
; R3 c/ B8 E+ p/ [$ H" |        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
& J# m' T9 p) M9 u0 u( Q                                D_From_To_Chart[j,i]:=0;
: C5 g( C, K% Z6 t5 l+ h                        else
6 j# y' w. ]$ y) H% p+ z                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
1 w0 j' R5 g( b/ Z                                end;
) [1 N% V) Y/ B" B2 K                        end;
) h# ^9 T0 z: X6 R                end;
        next;
next;
* q8 p: O; z4 R) D& S  Y: Z# q( U
2 e0 P( y' |' Q( [: oend;

    Lines :=0;
* a" Q  }  S/ D3 H        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
4 I. c9 k( n* ?7 _0 y) w( m6 i                    if W_From_To_Chart[j,Rows]>0 then
5 D9 c& M+ n/ G; z  V                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
) k& T' ]8 ^' G  l& ^! r                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
, h! I. f! d# Z% S# |2 e                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
4 H* }  p7 ~, G* z7 `( g/ F1 u        MachineName :=sprint("M",Rows);
, q. G( a/ P( t        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 `& i- d; _0 S% @6 ^% }1 D  y        Machine.label :=sprint("machine_",Rows);
/ Z1 O; P) `" C- a# ]' }        Machine.ExitCtrl :=ref(Leave);
3 h$ _$ j' M* o- P, o       
1 E  D8 g  _1 E2 V        BufName :=sprint("BF",Rows);
( O% k" E0 r; S9 `; s1 O7 q        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]);
, n" f/ o9 _+ ^% A. h1 _9 ^                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
5 v  ]+ ~, T, E$ c& S( n' k( T        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
: I) ~& @4 w. I! ]+ b# D

五五

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

wudi

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