ris (29); Writeln ('');
Write ('Введіть рік видання:'); Readln (pp);
r: = 0; (spknig, st); st.god = pp;: = 1; (33); write ('Виведення списку книг за , k , 'рік'); ris (33); writeln ('');
writeln ('Унікальний номер:', st.nomk); ('Назва:', st.naz);
writeln ('Автор:', st.auth);
writeln ('Видавництво:', st.izd); ('Рік видання:', st.god);
writeln ('Жанр:', st.zhanr);
writeln ('Кількість сторінок:', st.kol); ('Є в наявності:', st.nal);
If (st.nal = 'Немає')
writeln ('Унікальний номер читача:', st.nomch); ('Термін повернення:', st.densv, '', st.messv, '', st.godsv);; ( 80); ('Введіть "Esc" для закінчення');
k: = readkey;; (EoF (spknig)) or (k = # 27);
If r = 0 then begin writeln ('У бібліотеці немає книжок з даними роком видання'); readln; end; (spknig);;
{-------------------- Висновок читачів затримують книгу ----------------- ---}
procedure списку читачів затримують книгу '); ris (19); writeln ('');;
Write ('Введіть сьогоднішню дату (Приклад: 1 січня 2008):');
readln (datas, mess, gods);; not eof (spreader) do (spreader, sk); (sk.naruk = 'Так') or (sk.naruk = 'так') or (sk.naruk = 'ТАК') or (sk.naruk = 'так') (gods
{цей день ще не пройшов}
elsegods = sk.godsv thenmess
{цей день ще не пройшов}
elsemess = sk.messv thendatas
{цей день ще не пройшов}
elsedatas = sk.densv then
{цей день сьогодні}
{Цей день пройшов, рік, місяць однакові, але день більше}; (26); write ('Висновок читачів затримують книгу'); ris (26); writeln (''); (' Унікальний номер: ', sk.nomch);
writeln ( Ім'я: ', sk.name); (' Прізвище: ', sk.lname); (' батькові: ', sk.fname);
writeln ('Домашній телефон:', sk.tel); ('Домашня адреса:', sk.adress); ('Вік:', sk.voz); ('Унікальний номер книги на руках: ', sk.nomk); (' Коли повинен був повернути книгу: ', sk.densv,' ', sk.messv,' ', sk.godsv); (' Для продовження натисніть '); ;;
{цей день пройшов, поточний рік дорівнює, але місяць більше}; (26); write ('Висновок читачів...
