程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
% C0 {  F% I: ris
/ ]4 K; }! \  P$ U        i,j,Rows,Lines:integer;
  v  m& V. O/ ^& N2 U- K" n& ?        MachineName,BufName:string;
" }5 L8 [: N/ Z- m        Machine,Buf:object;
3 o) U9 O$ Q% |0 |/ z$ }- }do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
6 K0 K* |/ [+ T& i% x4 K                inspect messageBox("Number Wrong...,",50,13)
% p. S( f% }' o  J, y                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
* V+ Z6 K, q2 e2 zfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
0 F) l; Q/ x3 j* u: |/ U                if j<i then
/ l  ]9 P. H$ w/ F5 d6 D1 ?                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
# e" l4 H$ \/ `# }& B3 k                else
9 r: Y3 o% G7 X4 i' @                        if j=i then
. i6 S2 I, ^* s$ u, l6 ?* g                                D_From_To_Chart[j,i]:=0;
4 y/ Z( P% @" \9 c                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
5 [5 M6 C: Z/ {" K4 b+ y' I                                        EventController.stop;
                                end;
                        end;
                end;
        next;
next;

end;
) e( n1 v# Z" a$ \% x9 o  G
- g6 t  c, b. m$ ~* k  m$ [5 T    Lines :=0;
        for i:1 to Number_Of_Machine loop
* a. y% M- N$ n' n$ {. P$ s) I- m$ @        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
% c- g) E$ E$ ~! U; u" Z        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
0 {8 ^. W2 v$ d; W9 q# k, i& E; i% g                    if W_From_To_Chart[j,Rows]>0 then
  Q) J( N% ]( s: H8 ]                            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;
                        PartsTable[6,Lines]:=j;
! |9 v, T* H6 o( x2 e                end;
        next;
        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]);
' n* I; c# f+ o& d6 e5 v        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
0 u1 c( `" M" }7 `3 }. ]. [8 x* I       
* [' T+ e$ x' J4 s9 L- f        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;
7 |2 c1 g& K/ C& ~3 F+ J) _        Buf.Capacity :=5000;
: r. n3 t) o. K. @" J) W+ V        Buf.ProcTime :=0;
( g* ~7 H4 q+ h0 c( T& O        .MaterialFlow.Connector.connect(Buf,Machine);
5 q9 Y5 }2 U: U  x8 d$ m& U" |next;
+ u9 _' k# @) `4 u& B  [end;
- ^! m! u8 Q" d* Q

五五

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

wudi

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