Отсортировать массив студентов по среднему баллу в порядке убывания

for i:=1 to n-1 do
for j:=i+1 to n do
if m[i].sred<m[j].sred then
 begin
  x:=m[i];
  m[i]:=m[j];
  m[j]:=x;
 end;

program sred_bal;
uses crt;
type Tstud=record
           fm:string[15];
           im:string[15];
           sb:real;
           end;
var sp:array[1..50] of Tstud;
    n,i,j:byte;
    c:char;
    x: Tstud;
begin
clrscr;
writeln('Введите данные о студентах, окончание ввода Esc:');
n:=0;
repeat
n:=n+1;
writeln(' Студент',n);
write('   Фамилия: ');readln(sp[n].fm);
write('   Имя: ');readln(sp[n].im);
write('   Средний балл:');readln(sp[n].sb);
writeln('Закончить - Esc, продолжить - любую клавишу');
c:=readkey;
until c=#27;
clrscr;
writeln('  Общий список студентов');
writeln;
writeln('-------------------------------------');
writeln('|   Фамилия |   Имя    |Средний балл|');
writeln('-------------------------------------');
for i:=1 to n  do
  begin
    write('| ',sp[i].fm);
    gotoXY(13,whereY);write('| ',sp[i].im);
    gotoXY(24,whereY);write('|',sp[i].sb:8:2);
    gotoXY(37,whereY);write('|');
    writeln;
  end;
writeln('------------------------------------');
write('Нажмите Enter');
readln;
clrscr;
for i:=1 to n-1 do
for j:=i+1 to n do
if sp[i].sb<sp[j].sb then
 begin
  x:=sp[i];
  sp[i]:=sp[j];
  sp[j]:=x;
 end;
writeln('  Список студентов по убыванию среднего балла:');
writeln;
writeln('-------------------------------------');
writeln('|   Фамилия |   Имя    |Средний балл|');
writeln('-------------------------------------');
for i:=1 to n  do
  begin
    write('| ',sp[i].fm);
    gotoXY(13,whereY);write('| ',sp[i].im);
    gotoXY(24,whereY);write('|',sp[i].sb:8:2);
    gotoXY(37,whereY);write('|');
    writeln;
  end;
writeln('------------------------------------');
readln
end.