程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
, c/ j! w5 p" A" @6 Q        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
$ E2 h1 z. `) F  q+ M4 s( G* [                when 16 then
2 u. G& C' O6 c/ v+ p5 `4 A+ C                        print "Yes";
$ u( P) X9 b3 s1 \; r# d                when 32 then
                        print "No";
                else
                        print "Cancel";
( Z7 ?6 G8 T% V                end;
        EventController.stop;
( T1 F4 ]9 }$ F. Tend;
$ @  ?: P- x9 Z9 }  W' n: s2 QPartsTable.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];
" n; F% y: y; H. G                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
& y) p  q7 Q# z. Q  V9 `. z                        else
3 X) x* d1 m% O7 h8 ^                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
8 b8 b9 Y: c) W9 Z6 I                                        EventController.stop;
                                end;
1 @* B0 G6 M9 N3 K1 B                        end;
                end;
        next;
5 g$ E+ {6 d3 i5 ynext;
/ `+ x5 |- G! ?  |4 l. H# V" `3 A% H& G
5 H% a8 o& m. w7 a/ eend;
/ }5 K( G9 j+ p" i  z# A  X
    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
. N* C" R, e' b7 ^- N( y" m        MachineSequence[2,i]:=Rows;
3 Y' \; K! f  a' Z' f            for j:1 to Number_Of_Machine loop
  X1 C6 L: e7 U                    if W_From_To_Chart[j,Rows]>0 then
6 q2 V& o1 u6 E                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
/ L+ M5 o4 j1 N4 x' G                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
! Q+ Y! }  y! f                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
! m: L. h2 Y* C                        PartsTable[6,Lines]:=j;
                end;
2 ^; }% q9 I3 N" `& E1 P0 E        next;
        MachineName :=sprint("M",Rows);
) d" Z1 \% i: y# i( Y        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;
        Machine.label :=sprint("machine_",Rows);
+ i; Z/ h# z: e2 h. y) m/ I        Machine.ExitCtrl :=ref(Leave);
       
# O% d( @0 y1 k4 n        BufName :=sprint("BF",Rows);
8 m/ x# T: i8 O        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;
+ k1 w3 N- ^  w7 @  ]% G  |6 l        Buf.ProcTime :=0;
1 E  H$ K; C6 Z3 V4 L        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
$ b  I) I1 ]( D/ j+ n( |( @

五五

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

wudi

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