1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

procedure TForm2.sort_AName(var l,r:integer);
var mpos,lpos,rpos :integer;
    Buch_l,Buch_r,Buch_m : Book;
begin
  AssignFile(DATEI_B,'C:\Buecher.dat');
  Reset(DATEI_B);
  mpos:=(l+r) div 2;
  seek(DATEI_B,mpos);
  Read(DATEI_B,Buch_m);
  lpos:=l;
  rpos:=r;

  while lpos<=rpos do
    begin
      seek(DATEI_B, lpos);
      Read(DATEI_B,Buch_l);
      seek(DATEI_B, rpos);
      Read(DATEI_B,Buch_r);
      while Buch_l.AName<Buch_m.AName do
      begin
        inc(lpos);
        seek(DATEI_B, lpos);
        Read(DATEI_B,Buch_l);
      end;
      while Buch_r.AName>Buch_m.AName do
      begin
        dec(rpos);
        seek(DATEI_B, rpos);
        Read(DATEI_B,Buch_r);
      end;
      if lpos<=rpos then
        begin
          showmessage('rpos: '+IntToStr(rpos)+' und -1 '+IntToStr(rpos-1));
          showmessage('lpos: '+IntToStr(lpos)+' und -1 '+IntToStr(lpos-1));
          if (lpos=0) then
            Reset(DATEI_B)
          else
            seek(DATEI_B,(lpos-1));
          write(DATEI_B,Buch_r);
          seek(DATEI_B,(rpos-1));
          write(DATEI_B,Buch_l);
          inc(lpos);
          dec(rpos);
        end;
    end;
  if l<rpos then sort_AName(l,rpos);
  if lpos<r then sort_AName(lpos,r);
end;