程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
# Y: S. Z" d8 ]: I9 u+ Vis
        i,j,Rows,Lines:integer;
9 K+ z+ F# R; f. R" ?        MachineName,BufName:string;
( P2 c6 C& T) U) h- u, I3 E% E        Machine,Buf:object;
do
' i6 T. k8 ]- r8 P7 H        if Number_Of_Machine/=D_From_To_Chart.YDim then
  z4 l  M8 Q0 d7 y2 Q' X                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
" Z2 U5 a7 N$ [3 f5 {                        print "Yes";
                when 32 then
                        print "No";
6 x9 H0 [& g0 L7 O8 B  B                else
. ?6 S# E4 v0 u. k$ I                        print "Cancel";
3 ?5 Y. i( F0 ?3 R! k6 N8 G" Z& Y+ O                end;
8 I6 T1 [% ]- `# L6 u        EventController.stop;
/ }- K/ L( r' `1 Qend;
2 O* E+ h* Y2 E- q  t) ^PartsTable.delete;
9 s! `$ j9 t9 T+ sfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
3 Y2 q  E9 i1 X5 Q0 m2 C' W                        if D_From_To_Chart[j,i]<=0 then
; _* B4 m4 j- r' Q9 w" P                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
" \& [2 V, g* ~( d% @8 g                else
) J# ~1 n% @" i$ C9 T# }% p                        if j=i then
                                D_From_To_Chart[j,i]:=0;
5 |) V. I7 e' d. Q2 G4 N" x                        else
# O& I1 P8 x7 i                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
" O7 |1 [. z$ y& p. U2 k                end;
        next;
5 Y2 W3 j* F: bnext;

end;
, ?' u1 X" q4 q) P( ?9 g8 L6 g
    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            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"));
7 H- g5 \' O; W, m2 b$ I                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
9 E) B0 N/ c# d( T                        PartsTable[6,Lines]:=j;
                end;
        next;
7 s/ B) y) P/ o        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]);
3 t  M% a* L  m; J        Machine.Name :=MachineName;
6 y5 p8 A: {4 r) Y  \        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
' }% z  E7 f* g5 |. K$ R5 \        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 r  T$ r0 s  t9 d                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
6 l8 Q% I- W0 L1 {6 s9 s% Y6 w  A        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
2 p7 N5 m. h( t$ P; u! ]$ n7 lnext;
( c5 M: c9 s# z) H+ M: R. r# tend;
8 H5 Y9 H+ i% w2 ]9 e3 M

五五

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

wudi

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