程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
/ n0 l- I* ?) E' @1 s% X4 `is
; D, E2 F& I, c# c) l        i,j,Rows,Lines:integer;
) O, q  }4 r+ q        MachineName,BufName:string;
        Machine,Buf:object;
# R' T9 p  x: u; ^do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
$ ]6 V+ H0 r4 \) p9 H                        print "Yes";
                when 32 then
                        print "No";
9 V5 c/ a# E3 b! q  ]7 D( Y0 d6 ~                else
                        print "Cancel";
0 X+ ?5 G) `, V; m. p8 f                end;
# H" V3 E. V5 N3 {6 x. ]: P        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
% R; b1 n4 ?6 V; e+ [; f                        if D_From_To_Chart[j,i]<=0 then
* r! l& f( C& R1 ?9 I3 O3 @9 k                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
. h4 Q; ^6 ]! \                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
$ x1 g5 B8 i) Z                                        messageBox("distence<=0...,",50,13);
0 Q3 o- h" `* Z0 ]7 e+ u) @6 \                                        EventController.stop;
                                end;
                        end;
2 h* g9 a3 }0 x/ W                end;
* |0 Z- m$ b6 P0 f        next;
next;

2 }3 x" L" h; q* N' Zend;
: g- O' D6 [; f# r8 I
6 |9 C# F3 m6 K3 J- @$ f$ T    Lines :=0;
  L: W/ U; S/ h1 C6 U  \- i        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
. N) x& Y$ b2 K0 @# o( S) x                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
: x8 f  t6 {! r4 {; k                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
9 h6 \$ T& p& d7 \                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
' ^& W1 p0 W# t( d& @( S/ U- l, D3 U: Y                        PartsTable[3,Lines]:=sprint("Parts");
) Q5 C1 _( A! x2 H                        PartsTable[5,Lines]:=Rows;
& e) x( C8 ?. i- B$ P/ r2 f! O                        PartsTable[6,Lines]:=j;
8 F6 ?5 A! C: Y0 O                end;
, {% M# d- ^* b& N. @- |8 y0 b2 V        next;
/ ]1 @0 E9 Y# T! g# W5 J        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]);
" Y/ I& E, I( C& u- ?        Machine.Name :=MachineName;
1 z/ [4 U1 X' v        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
& l! G0 N+ O+ W0 o2 s+ Z! s        Machine.ExitCtrl :=ref(Leave);
4 t$ V) C  ^0 l! u       
        BufName :=sprint("BF",Rows);
  d4 U4 f0 v; h3 E- p        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]);
( q6 g' R" V; R! u                 Buf.Name :=BufName;
& @* n8 E% [# Y6 d: t6 j& e        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
, W0 C1 [3 i% P9 i, e$ _        .MaterialFlow.Connector.connect(Buf,Machine);
next;
/ ~" H  X% F3 a( Nend;

五五

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

wudi

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