Работа с файлами, Как записать данные Опции

[V@nix]

Народ помогите. Есть 2 файла 1 и 2, в 1-ом файле содержатся записи о книгах:

book= record
  cod:integer;{шифр книги}
  title:integer;{название книги}
  ekz:byte;{кол-во книг в каталоге}
end;

В файле 2 - запись об абонементах:

man=record
  ncb:integer; {номер читательского билета}
  {книги находящиеся у абонемента от 1 до 20 книг}
  k:array[1..20] of atribut;

запись atribut выглядит так:

atribut=record
  shifr:integer;
  when:integer;
  dowhen:integer;
end;

Вопрос! Когда абонемент берет книгу то должны вносится изменения в запись book (файл №1). Изменяется кол-во книг текущей книги book.ekz.
И шифр книги cod добавляется в запись man.k[i].shifr ... Как внести изменения в существующую запись (запись находится в файле)?

[Free]

Помогите разобраться с процедурой Delete, которая бы удаляла запись из файла. Если мы удаляем запись из середины файла, то остальные записи, которые распологались за удаляемой записью передвигались на одну позицию влево (в файле) таким образом освободится одно место для записи в конце файла, его тоже требуется удалить, тем самым уменьшив размер файла.