程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
3 d$ s- p/ }( F4 A- R: Q3 tis
" `# c" V6 R, T$ c+ i* U9 }  |        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
/ _% F1 p5 u* g                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
& Q: s- y1 w# S8 C7 h( S                        print "Yes";
                when 32 then
3 I: ~6 E! \& C  s                        print "No";
5 O& `/ {$ \6 P# H                else
- F0 N; r; j/ R  I, [+ U! I; t                        print "Cancel";
                end;
# I4 e3 ]# @7 s% \        EventController.stop;
3 C; x* o  {$ A7 \+ [8 _# g( L3 ^, o3 gend;
; Q2 a$ h) T6 K; A3 PPartsTable.delete;
( g8 H+ j9 E( J  H1 h* m* Ffor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
                        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
                                D_From_To_Chart[j,i]:=0;
6 ^2 I' T( a; L0 v7 h8 \                        else
. x/ N  g5 q) |' s                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
                end;
2 I4 X- _8 t, i) F: C1 b        next;
next;
( R2 D' {. l' O2 t3 G
end;
# H! R6 Z; P& S* V( d
5 s& @* X1 \7 ]' C7 F  E    Lines :=0;
! j5 m5 t' _. w  P* d0 ~        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
7 a+ z5 w' ]  _: m: @            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
# B. \+ Z: y/ o5 L# j$ W+ m                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
2 k' a  R/ m8 Y: o, ^2 a                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
+ h$ C: t; N1 L) e- H        MachineName :=sprint("M",Rows);
' p9 E( f: a9 }4 X8 C* \# u* G$ h, 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]);
        Machine.Name :=MachineName;
) A& V( y8 _" B        Machine.ProcTime :=5;
) r1 ]8 A% e* h        Machine.label :=sprint("machine_",Rows);
: f$ Y4 D/ C: i% p1 O$ }% W" `        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
( |- [& V9 ?% k( t" l        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;
        Buf.Capacity :=5000;
$ C# |/ k3 |9 L+ G        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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