程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
6 H! d2 @9 @9 n& Y  g5 pis
- Q; Z' o# ]+ r0 |        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
1 r- x* v* D5 L. y3 udo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
" d' M8 `! }0 L  `                        print "Yes";
                when 32 then
                        print "No";
                else
7 D6 m! c6 \  H! K4 m/ }                        print "Cancel";
                end;
6 T  N! O& J4 j; p# U! \        EventController.stop;
end;
PartsTable.delete;
- }, ^4 `& P' j4 h. v  i4 }' I( wfor i:=1 to Number_Of_Machine loop
4 u2 V9 E. K( r4 d. V* O        for j:=1 to Number_Of_Machine loop
                if j<i then
+ P3 f4 j' f  {1 C8 S8 w                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
$ D5 y4 {- i- X# {2 m! o" U                        if j=i then
5 D4 z$ p' [/ e! q+ t                                D_From_To_Chart[j,i]:=0;
1 O7 W! W# M5 X3 L/ V3 f" A% B0 \                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
" Z% O& e5 L6 A3 k- P$ ~  G  v, G                                end;
& D! T. u8 i5 h) l/ c                        end;
                end;
        next;
next;
/ Q( |  o+ I. V5 Z# A, F
end;
/ e& |+ b. J8 M1 [! B8 W% H* Z
    Lines :=0;
) \$ u4 _! i5 `1 w        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
! J: v- Y( D1 ?        MachineSequence[2,i]:=Rows;
. C( s: L* X1 ?/ a  E            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
8 F4 J: M% ~* C+ g1 n                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
! _% P$ y: u6 {( j$ p+ C. \% p                        PartsTable[6,Lines]:=j;
) U- k  ]0 o3 y# j4 m) n                end;
        next;
3 G- \# a# k% F9 U2 o        MachineName :=sprint("M",Rows);
5 N+ Z7 d" ~6 l, }8 O        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]);
0 S; e3 a7 p; c9 i$ h% ]        Machine.Name :=MachineName;
" o) u& N, T, c- ^$ A  V$ [# v        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
2 o/ L  j$ [: ]0 C# M9 D        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;
8 V: V; x9 k4 Y/ z! Y        Buf.Capacity :=5000;
2 Y( `& I+ I4 K: t' S+ x6 b        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
- ^5 j$ i& X  ~2 D3 k7 vnext;
$ b! ~8 ]- P4 x( h- g- \/ Mend;

五五

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

wudi

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