Typisierte Datei Sortieren

[Stillmatic]

Ich habe eine Frage bezüglich einer Sortierung(BubbleSort) einer Typisierten Datei!!

Delphi-Quellcode:

  TID = cardinal;
  TName = string[50];
  TTyp = (CD, DVD);
  TLaenge = cardinal;
  TKategorie = (Film,Musik,Software,SonstigeDaten);



TMedium  = record
             ID  : TID;
            Name : TName;
            Typ  : TTyp;
       Kategorie : TKategorie;
       case TKategorie of
            Film :(FilmFormat: TName;Laenge : TLaenge;FilmKategorie  : TName);
            Musik:(MusikFormat,MusikKategorie : TName);
         Software:(Hersteller,Schlüssel : TName);
    SonstigeDaten:(Zusatz : String[70]);

Das ist der Record!!


Type Datei = File of TMedium; Das ist die Datei!!!

Nun möchte ich zum Beispiel die Datei nach ID Sortieren, beginnend mit der 1 und endend mit der Filesize(Datei)!!



Wenn man jetzt das Hauptgerüst eines BubbleSorts hat .....

Delphi-Quellcode:

 for x:=1 to FileSize(Datei) do
    for y:=1 TO (FileSize(Datei)-1) do

Wie könnte man jetzt die Datei sortieren????
Man muss ja den Index eines Datensatzes mit dem Index eines anderen Datensatzes vergleichen, nur wie greift man darauf zu??