"Библиотека" - задача на использование типа record (запись) на Паскаль

[Андрей71]

1. Структура записи:
 автор;
 название книги;
 год издания;
 количество экземпляров.
Вывести количество книг заданного автора определенного диапазона годов изданий
а потом такая приписочка:

2. Для созданного файла предусмотреть возможность:
1. изменения выбранного поля некоторой записи;
2. удаления выбранной записи с последующим уменьшением размеров файла;
3. добавления записи в произвольное место файла;
4. вывода содержимого файла в виде таблицы;
5. выполнения указанного в варианте задания;
6. удаления всего файла при завершении работы программы.
Вопрос по условию на диапазоны годов , не подходит ни один тип который исп. " if ... (b<zip.year ).. "
А с приписочкой темный лес все..

[gaw4]

а язык не хотите назвать

[Андрей71]

а паскаль все тот же

[rrrFer]

% book(Author, Title, Year, Num).

p(Author, StartYear, FinishYear, N, NN):-
  retract(Author, Title, Year, Num), 
    (StartYear < Year, FinishYear > Year, !, 
       TN is N + Num, p(Author, StartYear, FinishYear, TN, NN);
       p(Author, StartYear, FinishYear, N, NN)
   ), assert(Author, Title, Year, Num);
   NN is N.

первая часть как-то так примерно на SWI выглядить должна

а паскаль все тот же

А не успел.