Sortieren mithilfe von Indexdatein

[Cobain]

Delphi-Quellcode:

procedure TForm1.BSortClick(Sender: TObject);
var j:integer;
begin
LBSort.Clear;
reset(f);

for j:=1 to filesize(f) do
Zaehler:=0;

while not eof(f) do
read(f,wert);

if (zaehler=0) then kleinstes.zeichen:=wert.zeichen;
if (zaehler > 0) and (kleinstes.zeichen > wert.zeichen) and (wert.zeichen>letztes.zeichen)then
begin
kleinstes.zeichen:=wert.zeichen;
end;
if (zaehler > 0) and (kleinstes.zeichen < wert.zeichen) and (wert.zeichen>letztes.zeichen) then
Begin
reset(i);
stelle:=Zaehler;
seek(i,filesize(i));
write(i,stelle);
closefile(i);
letztes.zeichen:=wert.zeichen;

end;
Zaehler:=Zaehler+1;
LBsort.Items.add(wert.zeichen);
end;

meine Urliste also Datei (f) besteht wie schon gesagt aus einzeilnen buchstaben. Leider gibt er mir bis jetzt nur einen Buchstaben aus, und zwar setzt er den der am Ende der Urliste steht an den Anfang der zu Sortierenden?
Ich versteh nicht ganz wo mein Fehler liegt.
Falls noch Fragen zu Variablen sind bitte frage.
Kannst du mir helfen ?

LG

Cobe