程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
. l2 |0 z! \# u, Q0 Z4 `+ v1 vis
& P0 y' Z+ o$ i        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
6 |- ^# d9 B) Z' R* o' @* I        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
( H; p$ Y/ |0 ], N$ }$ s% J                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
, P" t2 c+ m4 t8 S, k9 m/ y- \; V                        print "Cancel";
+ v9 R# l/ g# k                end;
! p- n; D4 @$ h! {/ ]+ X+ F9 t        EventController.stop;
, D0 N3 A7 H/ u& _/ `) t7 oend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        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];
/ Q3 X% K+ ]8 ^( i( [/ {/ x                        end;
2 E: k8 _1 X' o- P4 f                else
+ Y5 K, t9 M7 ?/ C                        if j=i then
                                D_From_To_Chart[j,i]:=0;
3 u6 L5 i% Z+ e2 X) ^                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
& H7 ?0 t6 v# v( ?. ?1 b. }  A                                end;
                        end;
7 R5 `9 D2 ^( G( T4 q) x                end;
        next;
next;

. S' e- e. M3 S3 t1 k% D7 Wend;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
8 J4 Y+ K+ z  v& M$ k        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
9 S* M: ^6 w% z" x- }        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
$ d) y5 |8 z1 @# f/ k                            Lines :=Lines+1;
7 O6 _& s' k# B$ [! Y- |                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
# l. {% l& q0 T. O9 r$ K                        PartsTable[3,Lines]:=sprint("Parts");
& M2 a) G  \* S& ]- ~* z' k1 {1 L% L                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
5 }: N' k3 Y1 |0 ^0 z- t8 \# V) }        next;
        MachineName :=sprint("M",Rows);
' V" C$ s* M5 ?  M3 C        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;
1 l, C, i" \5 B        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
* I) F. f" \1 [0 i' Q8 ^7 ^        Machine.ExitCtrl :=ref(Leave);
, B) }  ]4 b; q- ~9 ?1 _/ E* g       
9 b6 L1 ]. Q/ h1 I6 X        BufName :=sprint("BF",Rows);
! F) c0 u- i, w# t/ E" _6 I        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]);
9 j! a  I3 ?* A) `5 L" J( z                 Buf.Name :=BufName;
2 j7 ]3 Z" v/ R  r  ?        Buf.Capacity :=5000;
: e* V) n6 [" J0 g/ V$ G- z        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
- o, O" H# K" Fnext;
end;
/ q- S$ d; s) P' Y" I

五五

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

wudi

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