程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
3 a; M# @4 T. s! c% v' l- jis
2 W+ }  ]2 O% Z: [3 y0 I+ |4 v" H        i,j,Rows,Lines:integer;
3 J! S! ]3 ~9 `) N7 ]0 W! i        MachineName,BufName:string;
" g9 m- T8 _) h        Machine,Buf:object;
do
$ o  I- }" P9 Z  Y- s        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
6 [( E/ ~* h; A                when 16 then
- \8 v- K* l8 T& Z" o- }0 B$ ~                        print "Yes";
& l) @+ y" m: t                when 32 then
                        print "No";
                else
                        print "Cancel";
, ~! w, ]/ e8 }5 s3 g                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
; ~7 F% P  ?' u        for j:=1 to Number_Of_Machine loop
                if j<i then
1 X& _7 z/ {' l8 L5 z" ~" Y                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
  x& M$ l* L1 j. k                        end;
1 |, X: X5 h# X7 d5 |3 M: p                else
                        if j=i then
" j. F, Y8 t1 ]" a/ ^& P                                D_From_To_Chart[j,i]:=0;
6 V. @: q. ^, D, i                        else
! x+ Y; Q3 c( m3 _9 t" I                                if D_From_To_Chart[j,i]<=0 then
5 t2 ~  A* d. d, k3 v1 o  r* X                                        messageBox("distence<=0...,",50,13);
3 v7 b( }, h* G# L; R                                        EventController.stop;
                                end;
2 Z& Z( j2 e( K6 f                        end;
' d4 d0 O) N+ q! G$ v0 V                end;
        next;
* O. x" T7 g! V" r5 cnext;
0 R( S  q1 H/ i; K! \# \
( j4 N* S2 W* e* N$ Eend;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
# Q! R4 G* r5 E/ W# Y: l" x6 _        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
5 d3 m# f% C) N/ w/ ~& P" m        MachineSequence[2,i]:=Rows;
4 \8 W5 ?  l) {) V. ]% w" j            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
# A3 I, c5 J) S3 Z+ q9 T3 Y                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
7 V) l7 }8 k8 a* q- ~                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
5 d% `1 c: B% |9 n9 G, l                end;
        next;
        MachineName :=sprint("M",Rows);
  a. L- N6 i5 e) G. O        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]);
9 X6 [1 Q1 Q- ~, B5 I* u        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
4 m, x7 j7 y6 i        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
" m5 K8 H: Y, O) i; P) m/ U        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]);
# g; L/ j0 y5 b$ \9 c& f                 Buf.Name :=BufName;
/ p* N- p# I9 H; K        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
9 ^; `- Q. \; M( hnext;
4 K0 ?3 @- I4 ^end;
$ m6 S( v" Z" A7 E3 A5 A

五五

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

wudi

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