unit Types;

interface

type

  TBookInfo = record
    BookCode            :string[20];
    AuthorSurname       :string[20];
    BookName            :string[20];
    PublishingYear      :string[20];
    PublishingLanguage  :string[20];
  end;

  TAddressBookList = ^TBookList;

  TBookList = record
    Book:TBookInfo;
    Address: TAddressBookList;
  end;

  TReaderInfo = record
     ReaderCode  :string[20];
     FullName    :string[20];
     HomeAddress :string[20];
     PhoneNumber :string[20];
  end;

  TAddressReaderList = ^TReaderList;

  TReaderList = record
    Reader:TReaderInfo;
    Address: TAddressReaderList;
  end;

//Список вязтых книг
//Искать по коду книиги или по коду читателя  удалять по (Код читателя  или код книги)

  TTakingBookInfo = record
    ReaderCode    :string[20];
    BookCode      :string[20];
    IssuingDate   :string[20];
    CompletionDate:string[20];
  end;

  TAddressTakingBook= ^TTakingBook;

  TTakingBook = record
    TakingBookInfo:TTakingBookInfo;
    Address       :TAddressTakingBook;
  end;

//////


  TListType = ( BookList = 1,
                ReaderList = 2,
                TakingBookList = 3);

  TCommand = (IncorrectCommand       = 0,
              ReadDataFromFile       = 1,
              ViewAllElementsOfList  = 2,
              SortElementsOfList     = 3,
              SearchDataInTheList    = 4,
              AddNewDataToList       = 5,
              DeleteDataFromList     = 6,
              EditDataInTheList      = 7,
              ViewAllDebtors         = 8);

   TReadFiles = record
     BookList      :Boolean;
     ReaderList    :Boolean;
     TakingBookList:Boolean;
   end;

  TFileBookInfo   = file of TBookInfo;
  TFileBookReader = file of TReaderInfo;
  TFileTakingBook = file of TTakingBookInfo;

TAllPointers = record
      BookList       :TAddressBookList;
      ReaderList     :TAddressReaderList;
      TakingBookList :TAddressTakingBook;
   end;

TAllFiles = record
      BookList       :TFileBookInfo;
      ReaderList     :TFileBookReader;
      TakingBookList :TFileTakingBook;
   end;


implementation

end.