Problem bei Sortieralgorithmus

[Master_BB]

Hya,
ich hab derzeit ein Problem mit dem bubblesort algorithmus.
ich hatte ihn bisher in schon vielen Programmen in delphi umgesetzt aber gerade will er einfach nicht.
Das programm stürtzt ab wenn der algorithmus durchläuft. und ich finde den fehler einfach nicht.
hier der code:

Delphi-Quellcode:

Procedure TForm1.Tausch(a,b:KontaktType);
var c:kontakttype;
Begin
 c := a;
 a := b;
 b := c;
end;

Procedure TForm1.sortieren;
var i,dfs:integer;
    fertig:boolean;
    filename:string;
begin
 filename := ExtractFilePath(application.exename)+datafile;
 assignfile(df,filename);
 if fileexists(filename) then reset(df) else rewrite(df);
 for i := 1 to filesize(df) do
  begin
   read(df,kontakte[i]);
  end;
 dfs := filesize(df);
 
 repeat
  fertig := True;
  for i := 1 to dfs-1 do
   begin
    if kontakte[i].Name > kontakte[i+1].Name then
     begin
      tausch(kontakte[i],kontakte[i+1]);
      fertig := false;
     end;
   end;
 until fertig = true;

 seek(df,0);
 for i := 1 to dfs do
  begin
   write(df,kontakte[i]);
  end;
 closefile(df);
end;

ist zum sortieren von datensätzen aus einer typisierten datei.

Wäre echt cool wenn von euch einer den fehler entdecken würde muß weiter kommen.

Greetz
Master_BB