Сортировка по алфавиту Опции

[ChesterBennington]

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

const m=100;
type students = record
     kurs : byte;
     grup : byte;
     numb : byte;
     fam  : string[15];
     pr1, pr2, pr3, pr4 : string[15];
     opr1, opr2, opr3, opr4 : byte;
     end;
 
var a : students;
    F : text;
    F2 : file of students;
    n, i, j, numgrup : integer;
    stud : array [1..m] of students;
    
begin
 write('Введите кол-во студентов: ');
 readln(n);
 assign(F,'G:\pract\zapisi\spisok.doc');
 rewrite(F);
 with a do
 begin
  for i:= 1 to n do
   begin
    write('Введите курс ',i,' студента: ');
    readln(kurs);
    write('Введите группу ',i,' студента: ');
    readln(grup);
    write('Введите номер в списке ',i,' студента: ');
    readln(numb);
    write('Введите фамилию ',i,' студента: ');
    readln(fam);
    write('Название первого предмета для ',i,' студента: ');
    readln(pr1);
    write('Оценка по первому предмету для ',i,' студента: ');
    readln(opr1);
    write('Название второго предмета для ',i,' студента: ');
    readln(pr2);
    write('Оценка по второму предмету для ',i,' студента: ');
    readln(opr2);
    write('Название третьего предмета для ',i,' студента: ');
    readln(pr3);
    write('Оценка по третьему предмету для ',i,' студента: ');
    readln(opr3);
    write('Название четвертого предмета для ',i,' студента: ');
    readln(pr4);
    write('Оценка по четвертому предмету для ',i,' студента: ');
    readln(opr4);
    write(F, a);
   end;
 end;
 close(F);
 
 
 assign(F2,'G:\ptact\zapisi\alfav.doc');
 reset(F);
 rewrite(F2);
 while not eof(F) do
 begin
 writeln('введите номер группы');
 readln (numgrup);
  
       end;
           end.