程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
  {, W  O* h; Y7 P" i3 Ais
. W! K# a5 Q! }8 D; i& `        i,j,Rows,Lines:integer;
4 Z& g, D+ P- r8 j% l! j        MachineName,BufName:string;
6 M! C0 O' g0 k5 U" V+ n) }        Machine,Buf:object;
/ d" ~. n6 O% M3 p1 fdo
9 `, u: o6 D& F        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
. E0 B7 y! n/ Y& N# F                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
9 ]' J$ d  q- Y5 V& _; _) H! |5 V                else
                        print "Cancel";
$ a) T! x4 l$ m! B                end;
: w/ f$ U  s" y. L, s        EventController.stop;
8 E9 }( x% h' q, h7 n; k; Kend;
" W' c8 E. H3 C+ {  u0 l- i' p0 F( gPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
% m. B) b8 P8 s% ^% T- \" ^                if j<i then
8 S: m9 W" j7 m& g                        if D_From_To_Chart[j,i]<=0 then
! s, I% B! t7 {                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
8 i. R# P. ]& X                else
                        if j=i then
, i. v2 Q$ d5 a# f; Q1 T                                D_From_To_Chart[j,i]:=0;
! m' I( d, R) @                        else
: C0 b. c- d3 c% S9 \- ?                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
3 L% Y3 |, x' O- g  v                                end;
                        end;
                end;
7 p& O9 L) u  q. \        next;
/ N/ Q' h' ~3 P3 d: e/ ?$ _next;

- s$ z( Q1 [4 Mend;
3 U: T2 ?9 i# q& f
    Lines :=0;
        for i:1 to Number_Of_Machine loop
: X. y" o! S# _. [        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
  u: n% j9 |% r- L4 P        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
* P- p% W3 }! I                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
5 u' `$ g5 p% K4 B% d! h, T                        PartsTable[3,Lines]:=sprint("Parts");
) `& z) d( `8 X+ e                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
        MachineName :=sprint("M",Rows);
2 J' w$ @) l, o! c, L7 ]) K        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]);
8 T7 j' d. p& D) g; F        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
+ y( _- ~% u0 B. s3 l0 P$ _  b& k        Machine.ExitCtrl :=ref(Leave);
6 V8 j, T/ z/ Q# R- }6 C+ t8 n       
        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]);
% _0 P1 R; q5 q7 |                 Buf.Name :=BufName;
, N6 S0 G8 V: P! y1 Y        Buf.Capacity :=5000;
3 j8 g# I5 R) Y" }) t- s( A        Buf.ProcTime :=0;
4 M& l' b" ~; j4 q: R        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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