Как сделать сортировку внутри файла

const LATIN = ['a'..'z','A'..'Z'];
      SIN =[' ',',','.',':',';','[',']','{','}','"','@','#','№'];
var i,j,n,r,cheker:integer;
    ex,prov:boolean;
    a:array[1..10] of real;
    chil,buf,vvodf:real;
    fil:file of real;
    vvod: string;
begin
  prov:=true;
  assign(fil,'C:\Users\den-g\OneDrive\Рабочий стол\Лекции\Прочее\Коды\Основы алгоритмов\Практическая 12-2-5 ОА\Spisok.txt');
  reset(fil);
  write('Введите количество элементов ');
  readln(n);
  if n>10 then writeln('Ошибка! Можно до 10!')
  else
    begin
      writeln('Введите элементы: ');
      cheker:=0;
      repeat
        cheker:=cheker+1;
        readln(vvod);
        Val(vvod,vvodf,r);
        if not(r<>0) then 
          begin
            Val(vvod,vvodf,r);
            write(fil,vvodf);
          end
            else 
              begin
                writeln('Ошибка ввода');
                prov:=false;
              end;
         if cheker=n then prov:=false;
      until not(prov=true);
      close(fil);
      reset(fil);
      for i:=1 to n do
        begin
          read(fil,chil);
          a[i]:=chil;
        end;
      for i:=2 to n do
          begin
            j:=i;
            buf:=a[i];
            ex:=false;
                repeat
                    if a[j-1]>buf then
                      begin
                        a[j]:=a[j-1];
                        j:=j-1;
                      end 
                        else ex:=true;
                until ex or (j=1);
            a[j]:=buf;
       end;
       for i:=1 to n do
        write(a[i]:8);
        writeln;
       readln;
   end;
end.

{ uses dos; }
const n = 10; 
 
filename = 'reals.dat';
 
{function FileExists(F : String) : Boolean;
var
  SR : SearchRec;
begin
  FindFirst(F, AnyFile, SR);
  FileExists := DosError = 0;
end;}
 
var
  realfile: file of Real;
  x, y, z: real;
  i, j: integer;
 
begin
  {создадим файл, если его нет}
  assign(realfile,filename);
  if Not FileExists(filename) then begin
     randomize;
     Rewrite(realfile);
     for i:=1 to n do begin 
        x:=Random()*random(100); 
        Write(realfile, x) 
     end;
     Close(realfile);
     WriteLn('Создан новый файл ',filename,' и заполнен случайными числами.');
  end;
 
  {выведем содержимое файла на экран}
  WriteLn('Содержимое файла ',filename,':');
  reset(realfile);
  for i:=1 to FileSize(realfile) do begin
      Read(realfile, x);
      Write(' ',x:0:3)  
  end;
  WriteLn;
  close(realfile);
 
  WriteLn;
  WriteLn('Выполним сортировку по неубыванию внутри файла.');
 
 
  {сортировка}
  reset(realfile);
  for i:=0 to FileSize(realfile)-2 do 
   for j:=i+1 to FileSize(realfile)-1 do begin
    Seek(realfile, i); Read(realfile,x);
    Seek(realfile, j); Read(realfile,y);
    if x>y then begin
        Seek(realfile, i); Write(realfile,y);
        Seek(realfile, j); Write(realfile,x);
        write('.') {будем выводить одну точку на экран каждый раз, 
                  когда меняем содержимое исходного файла}
    end;
  end;
  Close(realfile);
  WriteLn;
  WriteLn('Сортировка файла выполнена.');
  WriteLn;
 
 
  {выведем содержимое файла на экран}
  WriteLn('Содержимое файла ',filename,' после сортировки:');
  reset(realfile);
  for i:=1 to FileSize(realfile) do begin
      Read(realfile, x);
      Write(' ',x:0:3)  
  end;
  WriteLn;
  close(realfile);
 
  readln;
end.