Упорядочить односвязный список записей в порядке убывания по средней оценке

Program Spiski;
uses crt;
type Spisok=^ucenik;
     ucenik=record
            FIO:string[25];
            God:integer;
            Gruppa:string[4];
            Otenka:real;
            Next:Spisok;
            end;
var p,v,r,w:Spisok;
i,n,f:integer;
Begin
clrscr;
write('Vvedite kol-vo ucenikov =');
readln(n);
new(p);
new(w);
write('FIO1='); readln(p^.FIO);
write('God1='); readln(p^.God);
write('Gruppa1='); readln(p^.Gruppa);
write('Otenka1'); readln(p^.Otenka);
v:=p;
for i:=2 to n do
    begin
    new(r);
    write('FIO',i,'='); readln(r^.FIO);
    write('God',i,'='); readln(r^.God);
    write('Gruppa',i,'='); readln(r^.Gruppa);
    write('Otenka',i,'='); readln(r^.Otenka);
    v^.Next:=r;
    v:=r;
    end;
r^.Next:=nil;
r:=p;
while r<> nil do
      begin
      writeln(r^.FIO:10,r^.God:5,r^.Gruppa:5,r^.Otenka:6:2);
      r:=r^.Next;
      end;
writeln;
repeat
      f:=0;
      r:=p^.Next;
      v:=p;
      while r^.Next <>nil do
            begin
            If v^.Otenka>r^.Otenka then
                                   begin
                                   w^.Otenka:=v^.Otenka;
                                   v^.Otenka:=r^.Otenka;
                                   r^.Otenka:=w^.Otenka;
                                   f:=0;
                                   end;
            v:=r;
            r:=r^.Next;
            end;
            If v^.Otenka>r^.Otenka then
                                   begin
                                   w^.Otenka:=v^.Otenka;
                                   v^.Otenka:=r^.Otenka;
                                   r^.Otenka:=w^.Otenka;
                                   f:=0;
                                   end;
until f=0;
r:=p;
while r<> nil do
      begin
      writeln(r^.FIO:10,r^.God:5,r^.Gruppa:5,r^.Otenka:6:2);
      r:=r^.Next;
      end;
readkey;
End.