程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
- \/ X$ }; V( f& l  E1 Vis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
' d$ L, U; A$ Y: W        Machine,Buf:object;
do
' Y+ ]/ y; ^- Q- n$ g        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";
$ ^1 {+ e* j% J1 o3 k" O                else
! R, h$ b" B: Y/ d1 k8 K) ]) ^; @                        print "Cancel";
6 H7 K6 @, _* o; B                end;
+ K* E% P7 X6 _+ k) }: J        EventController.stop;
end;
5 `) X2 u: O: O, }' E+ ~PartsTable.delete;
4 \$ J$ K4 q) H' Ffor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
4 v+ d: x! _4 z+ E                        if D_From_To_Chart[j,i]<=0 then
* r3 Q- t# y* O! h                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
- C9 b# n$ y6 T" C4 G# b! m5 T                        end;
5 I: U5 `6 W) B  Z& c! n                else
1 v3 R3 g, ^: @( L/ D                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
- @, R5 j7 T9 b; Y1 I7 L  L9 h+ R- \                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
. t& H0 Y) l0 U4 c4 q/ \                        end;
8 E& M% f& x) H2 O                end;
        next;
next;
9 z0 d0 J  Z# c
end;
) l2 ?* f8 [2 {* z2 m6 j* A3 _- G6 J: `
    Lines :=0;
9 }' Y; ]' D4 L! q        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
- w' _1 j, ~# i, E( o            for j:1 to Number_Of_Machine loop
: K" n: }( [( ^) V% E3 H                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
0 a3 J4 q6 b$ z+ B! h4 K4 M( C/ V1 g                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
0 x: n0 E) t4 F/ ^                        PartsTable[6,Lines]:=j;
                end;
        next;
# Z  n! F" m, S2 \+ t7 _3 O9 y: B0 |        MachineName :=sprint("M",Rows);
9 f, C' m  x* f7 x' _- r        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;
& I2 v2 D- Y+ R" C, B        Machine.label :=sprint("machine_",Rows);
* n% V5 S$ I2 `% G9 w        Machine.ExitCtrl :=ref(Leave);
: {( _6 r/ U7 V( t3 R       
        BufName :=sprint("BF",Rows);
' j, n+ y& \) t: W: R1 [        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]);
1 x0 H6 j: o! H! s  l                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
# W- i# C2 A, Y& L4 t8 M% e        .MaterialFlow.Connector.connect(Buf,Machine);
6 n: ?; t9 Y! f, Inext;
end;

五五

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

wudi

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