程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
/ M: ~& q+ y+ E( _        Machine,Buf:object;
do
) `3 ?1 O; P" p# ~8 I2 e0 G) B8 @, F        if Number_Of_Machine/=D_From_To_Chart.YDim then
% D# O: w- j" z                inspect messageBox("Number Wrong...,",50,13)
( D; A% ?  Q+ y$ X. Y                when 16 then
                        print "Yes";
                when 32 then
6 C! T! f8 E8 H& o                        print "No";
                else
                        print "Cancel";
                end;
$ r  l. Q1 R% y$ X4 h- W1 S0 O' e; ?1 L$ @        EventController.stop;
* y7 N* ]) ]  O% fend;
9 x# g8 h* g! z1 h2 ePartsTable.delete;
for i:=1 to Number_Of_Machine loop
+ {1 ^+ d# J- ~+ }3 H; ]5 P* \        for j:=1 to Number_Of_Machine loop
                if j<i then
7 T" y- j1 e3 D                        if D_From_To_Chart[j,i]<=0 then
; |6 ^7 ?6 T- ~% A7 J* j                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
! K; w4 y7 R1 o5 P) K* e/ R( n! u                        end;
                else
3 w5 ~) B- D3 Z" D; Z  H                        if j=i then
$ G/ X; ^  g) J4 A: H                                D_From_To_Chart[j,i]:=0;
7 |4 Q' Z, _. L% N( e- o$ W                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
6 B. K$ W+ }/ c# U7 q# M, f                        end;
+ s+ t, Y( S: L2 J8 V( n; b5 n                end;
        next;
% _0 U# L) Z& U0 D# Z) j2 A/ O. vnext;
6 X  k& D8 S% c7 Q$ l9 y
1 R' Z2 [; S6 D* P% R- [- uend;
6 X0 B* ~' R8 X
4 R4 g6 y4 Q9 p4 n    Lines :=0;
" u8 I: c1 ~3 E3 _1 \3 p0 ~        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
! z$ v, P* r. h; `2 T/ R                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
3 B$ d9 b5 P/ S/ }9 b3 q                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
5 p- C# f2 N( O7 ~. D3 [                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
2 B7 Q6 L3 N/ T/ u1 S                end;
        next;
        MachineName :=sprint("M",Rows);
/ K. W" v$ `3 }1 u# d3 x        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;
/ c- w: U& i( N, }        Machine.ProcTime :=5;
3 F# W* |5 [& e( H        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
7 ]$ e; c- P3 Y& Y  B. T2 r$ ~        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;
        Buf.Capacity :=5000;
3 J4 F; X6 j: r) F$ a        Buf.ProcTime :=0;
' S' _' v; e1 S  t        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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