程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
0 n7 V3 J5 Z3 D) r% Y* F( P: Y7 C7 @        i,j,Rows,Lines:integer;
) X1 B7 {4 P0 Z8 r  n        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
# S9 q7 G6 V' M9 C                when 16 then
$ B' h1 d, [+ G) [9 s7 M                        print "Yes";
                when 32 then
                        print "No";
. _' K. v( F4 h. ~0 J                else
& v- p/ J  n4 z0 W) Y$ ~                        print "Cancel";
                end;
        EventController.stop;
) D/ {& L# _4 i  y! T% Tend;
PartsTable.delete;
; e; r$ y, p  z8 y; ifor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
% k2 B) V/ `# j6 x                if j<i then
) Q8 l2 _$ a6 }                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
9 {! ?! t  f( N) N8 P0 R                                D_From_To_Chart[j,i]:=0;
                        else
' h4 h( ]$ Q& j2 I/ P                                if D_From_To_Chart[j,i]<=0 then
& O; ?; V' h4 v! q                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
% Y4 W! B: d' k$ L# D+ r* i                                end;
                        end;
                end;
' E1 G; K5 \* C8 v5 K# ~6 K/ _        next;
next;

end;

    Lines :=0;
) v3 k! o0 u, X        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
' n! |* h1 x- \8 O* ?. a6 t        MachineSequence[2,i]:=Rows;
! J8 k/ R8 v- @            for j:1 to Number_Of_Machine loop
9 Q* T0 w" n# D5 e  l/ Y                    if W_From_To_Chart[j,Rows]>0 then
7 Z4 ]3 E( w- K- x+ t( H                            Lines :=Lines+1;
+ E, T5 b  V- C' h& K                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
; f) S7 C2 z0 X4 }# ~( c, s                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
" |2 G# t. {, ?2 u                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
7 {6 T. l( k/ n) G* U  }                        PartsTable[6,Lines]:=j;
+ t. Q' w9 v! C6 [. _% a/ v                end;
  o4 N9 p0 l. H5 X/ T2 N        next;
) a3 F( J/ q; B: G' K4 ?        MachineName :=sprint("M",Rows);
5 s/ O9 V, C4 A: i- ~        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;
" C3 j( u0 g, B" n. t! r, t3 Z3 {        Machine.ProcTime :=5;
% I& B" |" I& B# b6 a0 s, S8 t        Machine.label :=sprint("machine_",Rows);
. C6 y8 X0 A- I1 N: v3 M5 L0 C        Machine.ExitCtrl :=ref(Leave);
# Z; O- a' t# F( X5 K2 n6 l4 I" x$ K       
3 B! a; v! T5 y7 K0 {  _        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]);
( U8 t) \; z5 j! l1 R" F                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
. u) ~* n* M& [        Buf.ProcTime :=0;
5 X( j5 }+ m: T' Y, P7 }: r        .MaterialFlow.Connector.connect(Buf,Machine);
5 x+ ]4 T' Y  |0 q* Q) cnext;
" A5 i8 k' U( b5 g- ^end;
! S9 j  J; {$ `. X# z! y' {1 @) K

五五

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

wudi

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