程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
  {/ [1 L8 G6 ~+ E, H) kis
. c1 @# G, q! |2 v) G& z; I        i,j,Rows,Lines:integer;
. V. I. i0 @# d9 F+ R: ^" o        MachineName,BufName:string;
/ o+ C+ b+ X: g2 J        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
: y( a  J6 P" I- N                else
                        print "Cancel";
5 t) R+ J3 _8 W. j. F. F' E* [' [                end;
        EventController.stop;
end;
$ C% f. d% p- V# R! j  i9 fPartsTable.delete;
# j2 b8 S+ o1 S% L/ j: G; mfor i:=1 to Number_Of_Machine loop
, M, d4 |( v3 U( _: e$ G8 V        for j:=1 to Number_Of_Machine loop
, p! j* B% A! S# T                if j<i then
5 X$ k9 i+ g9 a# h# @5 m! E                        if D_From_To_Chart[j,i]<=0 then
/ K+ U0 V* a. r: [                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
' f8 i: [3 h( D& [                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
. D1 n  v* z5 }! V) M                                        messageBox("distence<=0...,",50,13);
2 }4 h; D2 }) `  ^4 {6 Q                                        EventController.stop;
                                end;
# M' S- S) B: `1 @                        end;
                end;
4 G- t2 S/ o1 ~/ I" t' j        next;
* @$ B1 s+ U1 o% anext;

: P% |' V( O! w+ x+ tend;
% V3 a2 c) a* _% H
    Lines :=0;
        for i:1 to Number_Of_Machine loop
9 U. r* U7 i7 n9 y% K* }2 l7 D2 g) G        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
( I4 V% C/ X( a% z        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
9 H0 q% N' a  n( a7 q1 W                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
$ m# C' i3 S- t' t9 p3 g0 h                        PartsTable[5,Lines]:=Rows;
/ r" R5 d' `+ h0 h5 E                        PartsTable[6,Lines]:=j;
                end;
        next;
        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]);
0 J9 g6 u% a% h+ A        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
7 K$ H/ U% ]4 g) O& l. d' {+ w7 |        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        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;
, A; a9 Y  G; h        Buf.Capacity :=5000;
# F6 q  ?$ F, Q/ }& z        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
7 ~- @4 J! a4 [! qend;
3 x1 H+ v0 G- {3 t6 s! a

五五

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

wudi

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