Sortieren mithilfe von Indexdatein

[Cobain]

HiHo , ich habe den Quelltest "weiterentwickelt"! Ich habe in meinen Urdatei (qwertzuiopasdfghjklyxcvbnm) stehen !
Das programm sortiert bis (p) und dann folgen nur noch qqqqqqq
Wieso ? Was habe ich denn in meinem Quelltext falsch gemacht ??

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  reset(f);
  eingabe.Zeichen:=Edit1.Text;
  seek(f,filesize(f));
  write(f,eingabe);
  closefile(f);
  Edit1.SetFocus;

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  reset(f);
  rewrite(i);
  Stelle:=0;
  Zaehler:=0;
  letzteskleines.zeichen:=' ';
  while filesize(i) < filesize (f) do
  begin  //Begin von while filesize
  edit2.Text:=IntToStr(Filesize(i));
  edit3.Text:=IntToStr(Filesize(f));
  reset(f);
  Zaehler:=0;
    while not eof(f) do
    begin  //Begin von while not eof
      read(f,wert);
      if (Zaehler = 0) then
      begin   //Begin A
        Kleinstes.Zeichen:=Wert.Zeichen;
        Stelle:=Zaehler;
      end;   //End A
      if (Zaehler > 0) and (wert.Zeichen < Kleinstes.Zeichen) and (LetztesKleines.Zeichen = '') then
      begin  //Begin B
        Kleinstes.Zeichen:=Wert.Zeichen;
        Stelle:=Zaehler;
      end;   //End B
      if (Zaehler > 0) and (wert.Zeichen < Kleinstes.Zeichen) and (wert.zeichen > LetztesKleines.Zeichen) then
      begin  //Begin C
        Kleinstes.Zeichen:=Wert.Zeichen;
        Stelle:=Zaehler;
      end;   //End C
      Zaehler:=Zaehler+1;
    end; // end von while not eof
    if Zaehler = filesize(f) then
      begin   //Begin D
        reset(i);
        seek(i,filesize(i));
        write(i,Stelle);
        Listbox2.Items.Add(Kleinstes.Zeichen);
        LetztesKleines.Zeichen:=Kleinstes.Zeichen;
      end;   //End D
  end;  // end von while filesize
closefile(i);
end;

CyA

Cobain