程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
% m3 ~* D1 R( |7 z        i,j,Rows,Lines:integer;
' H3 M) ?# _  n" d8 m( w        MachineName,BufName:string;
        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";
! d; x* W# b& K; l5 p6 R                else
% _' Z, x* a3 G; b                        print "Cancel";
                end;
        EventController.stop;
end;
2 g' F+ ?7 U- \8 _  APartsTable.delete;
. E& S" M6 ~; f- w- |0 q/ ]/ sfor 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
! ~4 Y; Y/ r4 I                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
1 }4 }5 M0 H! N% P  N* A                        end;
9 D, ?# J# V4 D  n                else
' C: s0 N# |5 `3 d4 C, {                        if j=i then
4 y6 ]: r2 ~: W3 ]                                D_From_To_Chart[j,i]:=0;
4 d+ U: Z1 C$ E  Y                        else
9 U  s0 h, J9 ?, H0 \* I                                if D_From_To_Chart[j,i]<=0 then
- ~, G+ Y# F  g) q: W# y                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
* y; e4 b# [- v& c7 I* s( _                end;
( [0 A$ V* a& V        next;
next;
7 @( V- I6 r% Y6 Y/ |
5 G6 f' x. I) }, E4 R" U) O  }end;
# e2 x" k3 M6 X* D4 y: ^
! M% N* }" P3 ~; w    Lines :=0;
$ ~2 y) U! F7 F" y3 f- ^4 {        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
% a( u8 n9 U3 i9 A0 r; Q2 x        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
$ j- v3 c, d4 ]7 P6 ^. o                            Lines :=Lines+1;
: Z, m; {, |9 d                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
) a) l& J: n) D6 r; s& H! j+ D                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
- n% g& {/ ~# R$ U5 t! c                end;
        next;
$ y. M+ `9 n( X2 Z) T1 e        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]);
, G  u, ^1 ?2 {2 ~9 G( |        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
, I5 v3 o" k1 E; `. M        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]);
! ^7 w* A$ ^2 g  y; Q+ A                 Buf.Name :=BufName;
. ?# S8 Z9 _- ~        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
. b7 y& H# _: j" n& j  G) {# y- V. N. q        .MaterialFlow.Connector.connect(Buf,Machine);
next;
2 ^6 t7 S0 s7 _1 c( j8 dend;
( y; g) p1 e, W, g

五五

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

wudi

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