Переписать в новый файл сначала компоненты, превышающие среднее арифметическое элементов исходного, а затем все остальные компоненты

uses crt;
var f1,f2: file of real;
    n,sar: real;
    i: integer;
begin
assign(f1,'D:\in.dta');
assign(f2,'D:\out.dta');
rewrite(f1);
for i:=1 to 10+random(10) do
    begin
    n:=199*random-99;
    write(f1,n);
    end;
writeln('Файл заполнен случайным количеством случайных чисел');
writeln('Содержимое исходного файла');
i:=0;
reset(f1);
while not (eof (f1)) do
      begin
      read(f1,n);
      write(n:6:1);
      inc(i);
      sar:=sar+n;
      end;
sar:=sar/i;
writeln;
writeln('Среднее арифметическое компонент файла=',sar:0:1);
reset(f1); rewrite(f2);
while not (eof (f1)) do
      begin
      read(f1,n);
      if n>sar then write(f2,n);
      end;
reset(f1);
while not (eof (f1)) do
      begin
      read(f1,n);
      if n<=sar then write(f2,n);
      end;
writeln;
writeln('Содержимое итогового файла');
reset(f2);
while not (eof (f2)) do
      begin
      read(f2,n);
      write(n:6:1);
      end;
close(f1);
close(f2);
readln;
end.