Необычная сортировка в файле

uses crt, graphabc;
type
student=record
         f_i_o:string[20];
         alg:integer;{алгебра}
         phis:integer;{физика}
         geom:integer;{геометрия}
         ball:longint;{средний балл полный}
         ball2:longint;{дробный}
         end;
t_file=file of student;{типизированный файл записей}
const fname='stud.dat';{постоянное имя файла}
var stud:student;
    f100:integer;

procedure ReadFile(var f:t_file);{чтение файла}
var stud:student;
begin
clrscr;
ResFile(f);
writeln('Содержание файла:':40);
Tablica;
while not eof(f) do
 begin
  read(f,stud);
  with stud do
   begin
        ball2:=round(alg+phis+geom) mod 3;
    gotoXY(1,whereY);write('| ',f_i_o);
    gotoXY(16,whereY); write('|',alg);
    gotoXY(30,whereY); write('| ',phis);
    gotoXY(46,whereY); write('|',geom);
    gotoXY(59,whereY); write('|',ball,',',(ball2*3):2);
    gotoXY(70,whereY); writeln('|');
   end;
 end;
writeln('----------------------------------------------------------------------');
write('Press Enter...');
readln
end;

procedure Sort(var f:t_file);//сортировка типизированного файла
var st,a,b:student;
    i,j:byte;
begin
reset(f);
for i:=0 to filesize(f)-2 do
for j:=i+1 to filesize(f)-1 do
  begin
    seek(f,i);
    read(f,a);
    seek(f,j);
    read(f,b);
    if a.ball>b.ball then
      begin
       st:=a;
       a:=b;
       b:=st;
       seek(f,i);
       write(f,a);
       seek(f,j);
       write(f,st);
      end;
   end;
Tablica;......

ball:=(alg+phis+geom) div 3;

ball2:=(round(alg+phis+geom) mod 3)*3

if a.ball+a.ball2>b.ball+b.ball2 then
      begin