Сортировка типизированного файла

games=record
  n:string[11];
  w:integer;
  end;

var
i,j:integer; g,z,x,y:games; f:file of games;

begin
     assignfile(f,'result.dat');
     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,x);
           seek(f,j);
           read(f,y);
            if x.w>y.w then
              begin
               z:=x;
               x:=y;
               y:=z;
               seek(f,i);
               write(f,x);
               seek(f,j);
               write(f,g);
              end;
           end;
   Form4.stringgrid1.Cells[0,i+1]:=g.n;
   Form4.stringgrid1.Cells[1,i+1]:=inttostr(g.w);
   closefile(f);
   end;

for i:=0 to filesize(f)-1 do
   Form4.stringgrid1.Cells[0,i+1]:=g.n;
   Form4.stringgrid1.Cells[1,i+1]:=inttostr(g.w);

for i:=0 to FileSize(f)-1 do begin
  Read(f,g);
  Stringgrid1.Cells[0,i]:=g.n;
  Stringgrid1.Cells[1,i]:=IntToStr(g.w);
end;