Прошу отсортировать среднее значение

program zadanie ;
type anketa=record
   fio: string[45];
   dat_r: string[10];
   dat_z: string[50];
   curs: 1..5;
   grupp: string[4];
   ocen:array[1..5] of integer;
   sum: integer;
   sred:real;
end;
var student: array [1..100] of anketa;
 
   A,b,C,d: integer;
   
begin
   
   writeln('Введите кол-во учеников: ');
   readln(b);
   for A:=1 to b do
   begin
      writeln ('введите сведения о ', A , '-м студенте');
      writeln ('введите фамилию, имя и отчество');
      readln (student[A].fio);
      writeln ('введите дату рождения');
      readln (student[A].dat_r);
      writeln ('введите дату поступления');
      readln(student[A].dat_z);
      writeln ('введите курс');
      readln(student[A].curs);
      writeln ('введите группу');
      readln (student[A].grupp);
        begin
 writeln('Введите кол-во оценок: ');
   readln(d);
   for C:=1 to d do
      begin
     writeln('Введите оценку: ');
     readln(student[A].ocen[C]);
     student[A].sum:=student[A].sum + student[A].ocen[C]
      end; 
    student[A].sred := student[A].sum / d;
   
   end;
 
   end;
   
   
   
  
   writeln ('ввод закончен');
   writeln ;
   for A:=1 to b do begin
         writeln(A,'.','ФИО:', student[A].fio,'|',' Дата рож.:',student[A].dat_r, '; Дата пост.:',student[A].dat_z);
         writeln( '  Курс:',student[A].curs,'; Группа:',student[A].grupp,student[A].ocen,' ',student[A].sum,' ',student[A].sred);
         writeln(' ');
         
         end;
  
end.