Сортировка типизированного файла Опции

[TviSt_]

Подскажите как сделать такую вещь. У меня есть типизированный файл, где содержится информация о книгах: Название книги, автор, год издания, кол-во страниц. Приведите пожалуйста код или программу, которая реализует считывание данных из этого файла и их сортировку в алфавитном порядке по авторам и запишет уже отсортированные строки в текстовой файл.
С меня огромное спасибо

Вот программа которая создает этот типизированный файл:

program prog;           {начало пограммы}

type
 book = record          {создаем тип записей book}
      name:string[20];
      autor:string[20];
      god:integer;
      str:integer;
      end;
bk=file of book;        {создаем переменную файлового типа}
var i:byte;             {Объявляем переменные}
   f:bk;
   books:book;
   q:char;
begin
assign(f,'C:\pas\book.dat'); {связываем файл book.dat с файловой переменной f}
rewrite(f);                  {открываем файл для записи}
i:=0;                         
repeat
inc(i);
with books do begin          {ссылаемся на переменную books и заносим данные в оперативную память}
   write('Nazvanie ',i,' knigi:');readln(name);
   write('Autor:');readln(autor);
   write('God:');readln(god);
   write('Str:');readln(str);
   end;
write(f,books);              {записываем данные в файл} 
writeln('Prodolzhat ?');     {запрос на продолжение(по условию продолжать нужно 10 раз)}
readln(q);                   {считываем переменную q}   
until (q<>'Y' )and(q<>'y');  {заканчиваем, если q не равно Y или y}
close(f);                    {закрываем файл f}
end.                         {конец программы}