Сортировка в записи

program zeck;
uses
    CRT;
type
    Tmarks=record
                 fis,matan,progr,inger,inf:1..5;
                 s:real;
           end;
    student=record
                  fam:string[15];
                  yr:1900..2009;
                  yp:2000..2009;
                  marks:TMarks;
            end;
const
     n=5;
     ageev:student=(fam:'Агеев';yr:1991;yp:2009;marks:(fis:5;matan:4;progr:3;inger:5;inf:4));
     baib:student=(fam:'Байб';yr:1992;yp:2009;marks:(fis:4;matan:2;progr:3;inger:4;inf:4));
     bosak:student=(fam:'Босак';yr:1990;yp:2009;marks:(fis:5;matan:4;progr:4;inger:5;inf:4));
     dorox:student=(fam:'Дорох';yr:1991;yp:2009;marks:(fis:5;matan:5;progr:5;inger:5;inf:5));
     steppe:student=(fam:'Стёппе';yr:1920;yp:2009;marks:(fis:3;matan:2;progr:2;inger:3;inf:3));
var
     Group:array[1..n] of student;
     g2:array[1..n]of real;
     i:byte;
     temp:array[1..n]of student;
     flag:boolean;
BEGIN
     clrscr;
     writeln('Список по алфавиту:');
     group[1]:=ageev;
     group[2]:=baib;
     group[3]:=bosak;
     group[4]:=dorox;
     group[5]:=steppe;
     for i:=1 to n do
         with group[i],marks do
            writeln(fam:8,' ',fis,' ',matan,' ',progr,' ',inger,' ',inf);
                   
     readln;
END.

var bf:student;
.....................
for i:=1 to n-1 do
for j:=i+1 to n do
if student[i].marks.s< student[j].marks.s then
 begin
  bf:=student[i].marks.s;
  student[i].marks.s:=student[j].marks.s;
  student[j].marks.s:=bf;
 end;

begin
  bf:=student[i];
  student[i]:=student[j];
  student[j]:=bf;
 end;