程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
, j) c5 o% b* p, A* W3 J5 S- x        i,j,Rows,Lines:integer;
1 O# V6 v- Y5 ?% e- {8 u) c6 h        MachineName,BufName:string;
) J0 {! h: I  S& }7 j3 R        Machine,Buf:object;
do
! s1 g' {9 U4 ?5 H; P8 h% G        if Number_Of_Machine/=D_From_To_Chart.YDim then
4 k1 M- c; m; b) \, c' t                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
3 Y- c6 z( A8 @7 ^6 D                end;
        EventController.stop;
/ N' }$ K/ R" K) |, Dend;
/ I2 o1 Z2 |, J/ D) s' E( \" I/ rPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
  {& _; J0 a, H  r$ Z$ g  j* Z+ s                        if D_From_To_Chart[j,i]<=0 then
# }6 c4 K" G5 C& o& b" s) D                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
5 L( E  G2 o) L$ z; j                else
                        if j=i then
' o, N$ D. _% L3 C0 h) x                                D_From_To_Chart[j,i]:=0;
; H& u" N) {5 n7 j8 }                        else
# x! ~, [: C4 @1 o  P; ^                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
5 ?, S$ ~9 A5 I                                        EventController.stop;
  l$ W4 l# L8 V' B+ K7 A& ~  y                                end;
! h: Z) s% g3 O# ^2 }- n, K% F                        end;
$ G1 e. Y+ J: e/ _7 v                end;
6 Z* v& f7 H8 q0 k0 q% H        next;
next;
' a7 Q+ P, u+ W. C/ e) w( S
end;

  D; Z" w5 I' M8 b7 u/ J- |0 }) V    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
. ]1 I6 |! A, V1 x5 x0 }4 h) V        MachineSequence[2,i]:=Rows;
( I2 a0 }( n: f% Z5 |: V            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
1 e9 P7 _0 x. j9 H: \( @                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
5 a5 h2 r! D! @* g; D$ E                        PartsTable[6,Lines]:=j;
                end;
        next;
0 D$ F5 u0 B) G# e        MachineName :=sprint("M",Rows);
' z; Q  y+ a+ P+ o- 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]);
) s8 ]6 N* }+ k1 ~5 m$ I) G        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
* y' n' j0 P& z  S' H        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]);
1 \7 e% |) a0 l, P: [8 N8 ?                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
5 B  t# @. O! Inext;
end;

五五

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

wudi

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