Метод быстрой сортировки

[Nord18]

Доброго дня!
Друзья, помогите пожалуйста решить задачу:
"метод быстрой сортировки применить при сортировке файла,элементами которого являются числа,выбранные случайным образом из некоторого промежутка.Оценить время работы программы для каждого случая"
Заранее благодарен!!!

[ArtJuhn]

Не знаю насчёт быстрой сортировки и оценки времени, но может поможет такой способ сортировки файла:

type
  TRec1 = record
     Chislo : integer;
  end;

var i,j:integer;
     R1,R2:TRec1;
begin
      AssignFile(F1,'File1.dat');
      Reset(F1);
      for i:=0 to FileSize(F1)-2 do
        for j:=FileSize(F1)-2 downto i do
          begin
            Seek(F1,j);
            Read(F1,R1);
            Read(F1,R2);
            if R1.Chislo > R2.Chislo then
              begin
                Seek(F1,j);
                Write(F1,R2);
                Write(F1,R1);
              end;
          end;
      CloseFile(F1);
end;