程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
0 [0 Q3 Z; j% J7 dis
& e) T* K4 {# H: {' J        i,j,Rows,Lines:integer;
3 [1 y0 Z2 `! S) H+ N  A. s/ n        MachineName,BufName:string;
- I! ~+ f3 c, D        Machine,Buf:object;
- B# p' p) F- A/ T) ~  t" vdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
% G% n& g7 x1 b. r, a0 P& R                inspect messageBox("Number Wrong...,",50,13)
; f3 z7 b( T5 ^- f/ d3 F                when 16 then
                        print "Yes";
4 m' O0 h- P: q) T) `  L                when 32 then
: w& d7 J$ T* R" M! G7 s                        print "No";
                else
/ h1 z# f, d9 r# e4 j! j                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
( A; z! A& q" S7 Xfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
3 i+ Q. P' j  l/ j9 z                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
. Q# K" C6 z- Y9 Y3 {  d                        end;
                else
% [. P: s3 e$ q2 ~0 J5 N                        if j=i then
                                D_From_To_Chart[j,i]:=0;
/ z7 R. v8 n  R0 a) ?4 K                        else
                                if D_From_To_Chart[j,i]<=0 then
" H2 @- l: D, c                                        messageBox("distence<=0...,",50,13);
+ X: f# p5 ?! v9 {3 I6 V                                        EventController.stop;
! z7 ~5 C2 \& h! w                                end;
                        end;
                end;
0 y6 J; u  n) F1 r* t" w        next;
next;

( h& t% j( q( K+ ^* T/ V/ S6 Jend;
3 V! j/ c; C' ~" {6 b
5 G3 |3 [  ~, l7 w/ r    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
/ X- G" o+ m; n- K- r) {, R        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
; Y! T; y: |# `                    if W_From_To_Chart[j,Rows]>0 then
0 ]7 T* [8 ]0 W# ~                            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");
( t/ N4 [) Q9 C% U                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
% V# K, H4 J/ c                end;
  n3 F. D- M6 ]5 s! ]' f3 s+ k        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]);
        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
: X5 ]1 @, Y# t        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]);
' X: U0 U4 e8 O                 Buf.Name :=BufName;
$ b8 A# D  K8 k% t        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
  N7 E9 N3 ?+ t' L! }  n5 ~* I        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
2 @9 `9 V$ V8 b3 j: }9 Y1 ]

五五

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

wudi

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