程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
" M4 S6 a) {( eis
: r* e. @: Y# X8 u3 z; D# r4 w        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
% M$ p# t# y& F4 Ndo
) S) O* B' J) a4 m2 l* N  `  r        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
1 a" L; k; E& y. d3 t                when 32 then
                        print "No";
9 T: Q1 I' h  K* @7 C) \                else
  ~2 p$ ]4 e3 P. s                        print "Cancel";
: ]. Y+ ^" C- T) x0 G. i. j. T. S                end;
        EventController.stop;
3 s+ j2 f9 E( I( N' j; c: v& Rend;
3 R( i2 S9 c) G& p, n7 d/ T. UPartsTable.delete;
  Q, S1 p; \' h3 a1 Xfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
6 ^" u& y9 B+ q                        if D_From_To_Chart[j,i]<=0 then
  h: @' [, X' ?# o                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
) j' m% w! C# F0 H0 N                        end;
                else
8 p% J9 c# T8 Q  D  X' ?+ i                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
6 W* V% m/ I& h% d: }5 S- D$ N                                if D_From_To_Chart[j,i]<=0 then
$ [3 o. g- `; b# B6 E0 v. J                                        messageBox("distence<=0...,",50,13);
; n% t; |; a( B# J                                        EventController.stop;
                                end;
+ M7 g' s+ i( v                        end;
. Y- ?6 ^; ]6 Z/ N4 \. \6 d  z                end;
7 ^2 B! {7 Y  I        next;
) e3 L) x: J) J2 |5 ~next;

: Q) T" [0 T6 q5 h/ [8 v& Z5 |) cend;

    Lines :=0;
" `$ I3 d6 g" O        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
- B3 |" d2 M  ]! ^        MachineSequence[2,i]:=Rows;
% o' D% W8 j2 a- @6 K  }' i$ Y1 e            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"));
9 k5 q: o, ~4 u                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
4 d9 d+ j; M5 f0 D) e1 S                        PartsTable[5,Lines]:=Rows;
  H" E. v) H8 p. e8 ?* Q                        PartsTable[6,Lines]:=j;
                end;
        next;
7 G. W9 Y# z. J+ e' ~6 {        MachineName :=sprint("M",Rows);
# e  }; M; P2 `        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;
, U9 J! v5 U4 d2 c# l; k; I        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
  t/ ^1 ^2 W. F5 R% c' o       
# ^; q1 Y1 W6 u        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]);
                Buf.Name :=BufName;
$ R. c( p  q! s: v; D+ j& Y        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
3 S0 M% d; f. n) [4 Q        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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