Описать запись с именем BOOK

uses crt;
const n = 3; m = 3;
type
  Book = record
    LastName, BookName: string;
    Sales: array [1..m] of integer;
  end;
 
procedure swap(var a,b:string);
var x:string;
begin
  x:=a; a:=b; b:=x;
end;
 
var
  books: array [1..n] of Book;
  i, j, k: byte;
  x: integer;
begin
  for i := 1 to n do begin
    clrscr;
    writeln('Информация о ', i, ' книге: ');
    write('Фамилия автора: '); readln(books[i].LastName);
    write('Название книги: '); readln(books[i].BookName);
    writeln('Объёмы продаж:');
    for j := 1 to m do begin
      write(j, ': '); readln(books[i].Sales[j]);
    end;
  end;
  clrscr;
  for i := 1 to n do
    for j := i to n do
      if books[i].LastName > books[j].LastName then begin
        swap(books[i].LastName, books[j].LastName);
        swap(books[i].BookName, books[j].BookName);
        for k := 1 to m do begin
          x := books[i].Sales[i];
          books[i].Sales[i] := books[j].Sales[k];
          books[j].Sales[k] := x;
        end;
      end;
  for i := 1 to n do begin
    writeln(i, ' книга:');
    writeln('Фамидия автора: ', books[i].LastName);
    writeln('Название: ', books[i].BookName);
    write('Объёмы продаж: ');
    for j := 1 to j do write(books[i].Sales[j],' ');
    writeln; writeln;
  end;
  readln;
end.