程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
0 u+ V) X' D/ x4 n; f) \9 Ais
        i,j,Rows,Lines:integer;
3 F0 P0 w( @: v" @8 }( s, {        MachineName,BufName:string;
        Machine,Buf:object;
. f# \/ w% R2 I& p( v/ Q; hdo
+ [" ?3 m7 {3 A* C/ H* N8 V# K        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
4 w7 ^0 E6 f- A$ _  K                when 16 then
' F. s1 |$ S# }( P! O. w& ^7 |$ T0 p                        print "Yes";
" E1 U- w- c6 h% t( I, z                when 32 then
                        print "No";
                else
: q5 h3 ~# `' l' ]% J/ A. X$ ?                        print "Cancel";
, ~# ~. I4 a- O# k6 A! Q                end;
' N" |: p8 C: ~9 c9 S        EventController.stop;
end;
PartsTable.delete;
3 D/ N5 J4 q( d$ q4 ffor i:=1 to Number_Of_Machine loop
& y% j% N3 [. S+ X+ M        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
. r/ J. c% I$ l# |: J4 o                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
+ I/ \4 }0 a& J" ?3 ?6 `, U                        if j=i then
* M/ _0 Z1 Z1 @+ |                                D_From_To_Chart[j,i]:=0;
1 @) V  e7 F; i9 r& e) }: O- _7 w                        else
                                if D_From_To_Chart[j,i]<=0 then
! _0 S( |2 g2 e                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
+ T( X) E% s' ?6 [4 U2 t7 f6 e                                end;
; n; H' I3 W: n0 X" c                        end;
9 b( D$ g7 `2 J                end;
5 ~$ w  z$ b1 G! q) s        next;
6 h/ o- [7 c- o& u9 cnext;
6 A5 y1 o. t* j
end;
3 `9 S- c# Z" }  H8 A3 _0 ?3 T
    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
2 F3 v1 g4 v+ }+ n7 G            for j:1 to Number_Of_Machine loop
! a. f( U7 Q5 k                    if W_From_To_Chart[j,Rows]>0 then
7 P+ A" o' Y1 t# n6 }" t                            Lines :=Lines+1;
" L9 s6 z) ]/ C0 G7 N                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
& ^* \  d+ o6 P, t- n8 Q) D0 r                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
% b' ~) A9 H, q; u$ N+ T                        PartsTable[6,Lines]:=j;
                end;
+ W  H8 y6 A! Q, V        next;
2 ^! M& ~7 ~9 ?) ?1 \        MachineName :=sprint("M",Rows);
; X' q: u, ~- a1 w        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]);
! x6 R! T3 _9 S) Q        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
" k- m* k/ O9 o        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
9 L% F+ t. a* L1 N        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]);
& h7 D; J6 b/ O% ?' |7 R                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
7 U( J! q$ I6 s0 ?+ s        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
" W# T$ T0 d% g/ V) ^4 Snext;
end;
6 r, ^! E& L* k6 A: ]' w) @  n+ K

五五

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

wudi

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