程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
; K' N% e0 b: b+ d# c        MachineName,BufName:string;
        Machine,Buf:object;
& z& L' X- c& Q& Tdo
3 t! E/ R9 ?. D" H) [/ P        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
. o5 f4 O5 J4 @" u8 p! L                when 32 then
4 u3 S/ L7 Z7 b  U6 g1 n                        print "No";
                else
                        print "Cancel";
/ w) ?. n* t5 Y                end;
* n; B- k; U8 n" q" h        EventController.stop;
end;
PartsTable.delete;
/ E) k: p& Z& Y! q/ r. zfor i:=1 to Number_Of_Machine loop
8 Z; o' |; g  [/ f3 R6 \4 i        for j:=1 to Number_Of_Machine loop
3 R# x+ @5 y7 h8 v$ w                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
# f6 M' B3 B5 p+ k  E2 J$ W* Q                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
& R) O3 |& e2 o5 ~7 e4 z                        end;
                else
; L* f) R( P- b+ \0 K9 {& K                        if j=i then
3 l* m5 {; m4 w/ X; c- }8 y                                D_From_To_Chart[j,i]:=0;
) l* T9 H& ?" C1 k6 d% g                        else
, E+ p6 O' y2 v1 z5 J. A  c- v9 [* h% a                                if D_From_To_Chart[j,i]<=0 then
. U/ x7 ]# o7 T                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
2 e, o: h; Y4 y; Q, ]                                end;
                        end;
' E2 K1 ]6 g7 W+ f& T2 e                end;
        next;
9 `9 O. b+ x' }& v1 E9 q, Knext;
9 I- p( {: C- v4 r" c
end;

8 U( d* v+ |5 [, ?    Lines :=0;
" e% m) M+ Q' e- ]  z0 `9 d        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
                    if W_From_To_Chart[j,Rows]>0 then
" W4 U. G. f& E" N$ j& O) h- E                            Lines :=Lines+1;
6 [: ]% A) _& M3 K5 {/ H                        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;
5 J/ t0 U) E3 R: }                        PartsTable[6,Lines]:=j;
# r7 b/ E' _3 C+ X                end;
        next;
. p  ~/ k, }3 Q4 n# A$ p, `        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]);
        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
0 y9 ^2 f! V3 c0 H( |# V       
        BufName :=sprint("BF",Rows);
& \# g6 e6 I9 e' `3 ~! \# C( @        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]);
/ d$ c) R& F+ v- ^3 t/ O4 n. Y9 ~                 Buf.Name :=BufName;
6 u& Y/ a# _' f        Buf.Capacity :=5000;
! `' J- w$ P5 l        Buf.ProcTime :=0;
* ^- g) Y# G* O3 o, n        .MaterialFlow.Connector.connect(Buf,Machine);
1 \3 G. X( d1 ynext;
; q- |* V3 d4 @, l) _end;
: a& y2 r' W5 T1 k) F

五五

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

wudi

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