Вставить быструю сортировку в программу

Program informatika;
uses crt;
Type  fio=string[50];  
      aa=array of fio;
      Student = record
      fiol:fio;
      tel,adres: string [50];
end;
var zap : student;
     f: file of student;
     i: string;
begin
clrscr;
Assign (f,'setka.txt');
Rewrite (f);
repeat
Writeln ('Введите фамилию и инициалы студента');
Readln (zap.fiol);
Writeln ('Введите номер телефона');
Readln (zap.tel);
Writeln ('Введите адрес');
Readln (zap.adres);
Write (f, zap);
writeln('Если хотите продолжить напишите continue, cancel для закрытия программы');
readln(i);
until i='cancel';
close(f);
End.

Program informatika;
uses crt;
Type  fio=string[50];
      aa=array of fio;
      Student = record
                fiol:fio;
                tel,adres: string [50];
               end;
      tfile=file of student;
var zap : student;
     f: file of student;
     i: string;
//рекурсивная процедура быстрой сортировки (сортировка Хоара) файла
procedure Hoar(var f:tfile;l,r:integer);
var i,j,m:integer;
    a,b,x:student;
begin
i:=0;
j:=filesize(f)-1;
m:=(l+r)div 2;//средний элемент
seek(f,m);
read(f,x);
repeat
seek(f,i);
read(f,a);
seek(f,j);
read(f,b);
if a.fiol<x.fiol then
 begin
  inc(i);
  seek(f,i);
  read(f,a);
 end;
if b.fiol>x.fiol then
 begin
  dec(j);
  seek(f,j);
  read(f,b);
 end;
if i<=j then //если левый и правый срослись
 begin
  seek(f,i);
  write(f,b);
  seek(f,j);
  write(f,a);
  inc(i); //левый вправо
  dec(j); //правый влево
 end;
until i>j;//конец одной перестановки
if l<j then Hoar(f,l,j);//рекурсивно сортируем
if i<r then Hoar(f,i,r);//или левую или правую части
close(f);
end;
 
begin
clrscr;
Assign (f,'setka.txt');
Rewrite (f);
repeat
Writeln ('Введите фамилию и инициалы студента');
Readln (zap.fiol);
Writeln ('Введите номер телефона');
Readln (zap.tel);
Writeln ('Введите адрес');
Readln (zap.adres);
Write (f, zap);
writeln('Если хотите продолжить напишите continue, cancel для закрытия программы');
readln(i);
until i='cancel';
close(f);
reset(f);
Hoar(f,0,filesize(f)-1);
reset(f);
while not eof(f) do
 begin
  read(f,zap);
  writeln(zap.fiol,' ',zap.tel,' ',zap.adres);
 end; 
close(f);
End.