程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
5 p) f1 w3 a2 K0 U; N8 }        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
1 C. m9 ^1 m- `# u8 {" {$ J        if Number_Of_Machine/=D_From_To_Chart.YDim then
- g1 K7 C7 P  ~& j) i3 F* ~' {                inspect messageBox("Number Wrong...,",50,13)
7 J, i$ U8 e3 q+ N                when 16 then
  `% ?) V3 M, ]# o) z4 ?                        print "Yes";
5 R  C6 ]) A7 F2 m  R                when 32 then
6 z$ v0 j- ?1 n5 D- K                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
: [. }7 f7 [1 l                if j<i then
$ l, t' y1 l5 k$ T/ \                        if D_From_To_Chart[j,i]<=0 then
% \4 t/ a% K7 J3 N) ?                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
3 m3 Q& R+ T6 v: \) y! }- s9 F- e                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
( Z$ N' a; V; B3 E1 T8 T                        else
                                if D_From_To_Chart[j,i]<=0 then
, B% Q& Z% P( ?' O                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
  m; {4 v; [' J6 u                                end;
8 }$ E$ k) ~' _* r6 L3 `- {5 u                        end;
                end;
        next;
next;

end;
- _# x/ C: W' l0 y0 a" N, R+ P
. \  y# z! c, \* D8 W3 \4 T% V- x8 \    Lines :=0;
) S* c* ~: S% w5 r        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
, k7 ~9 [" W) I9 ~: _            for j:1 to Number_Of_Machine loop
) C- F% ^1 J, D& a4 Y6 L                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
  N+ M, q' V& y) b' @2 A                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
8 r8 v8 S0 R' i  ]9 Q) Q4 u# q9 J                        PartsTable[6,Lines]:=j;
                end;
2 e) F& H: s& J        next;
        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]);
' H& D+ V0 O) x        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
: `2 ^6 D; x% O1 y- D% _9 R        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
/ u1 \0 W5 P' J* i# r, B" Y8 c: p- L        BufName :=sprint("BF",Rows);
. W' x7 {6 E+ {0 A        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;
% x5 u+ f+ ]( f% d' \8 ]        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
/ `6 L( x# q# |next;
end;

五五

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

wudi

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