Записи: Отсортировать массив в порядке возрастания среднего балла

const
  n=10;
type
  stud=record
    name1,name2,name3: string[20];
    nomber           : string[8];
    count            : byte;
    marks            : array[1..100] of byte;
  end;
var
  a: array[1..n] of stud;
  b: array[1..n] of real;
  i,j: byte;
  s: integer;
  t: real;
  t2: stud;
begin
  // ввод исходных данных
  for i:=1 to n do
  begin
    writeln('Ввод данных:');
    with a[i] do
    begin
      writeln(' ',i);
      write('  фамилия: ');
      readln(name1);
      write('  имя: ');
      readln(name2);
      write('  отчество: ');
      readln(name3);
      write('  № зачетной книжки: ');
      readln(nomber);
      write('  количество оценок: ');
      readln(count);
      s:=0;
      for j:=1 to count do
      begin
        write('   ',j,'-я оценка: ');
        readln(marks[j]);
        s:=s+marks[j];
      end;
      b[i]:=s/count; // вспомогательный массив средних баллов
    end;
  end;
  
  // сортировка массисов
  for i:=2 to n do
    for j:=n downto i do
      if b[j-1]>b[j] then
      begin
        t:=b[j-1];
        b[j-1]:=b[j];
        b[j]:=t;
        
        t2:=a[j-1];
        a[j-1]:=a[j];
        a[j]:=t2;
      end;
      
  // вывод результатов на экран
  writeln('Наиболее успевающие 3 студента:');
  for i:=n-2 to n do
    writeln(a[i].name1,' ',a[i].name2,' ',a[i].name3,'  бал: ',b[i]:0:2);
  writeln('Наименее успевающие 3 студента:');
  for i:=1 to 3 do
    writeln(a[i].name1,' ',a[i].name2,' ',a[i].name3,'  бал: ',b[i]:0:2);
end.