procedure TForm1.Button5Click(Sender: TObject);
var k,r,n:integer; s:string;
 tmp:book;
Sort: Boolean;
begin
  Memo1.Lines.Add('Отсортированный массив: ');
  Sort:=True;
  n:=0;
while Sort do
  begin
   Sort:=False;
   for r:=1 to high(B)-1-n do
     if B[r].author>B[r+1].author then
       begin
         Sort:=True;
         tmp:=B[r]; B[r]:=B[r+1]; B[r+1]:=tmp;
       end;
   n:=n+1;
  end;
     for k:=1 to i-1 do
    begin
      s:=inttostr(k)+'.' + B[k].author+'   '+B[k].name+'   '+B[k].number+'   '+B[k].publisher+'   '+B[k].Num_pages+'   '+B[k].price;
      Memo1.Lines.Add(s);
    end;
end;