адреса:'); readln (sk.adress); ('Вік:'); readln (sk.voz);
end;;
{--------------------------------- Додавання нового бібліотекаря ----- ------------}
procedure нового бібліотекаря '); ris (24); writeln ('');
writeln ('Заповніть дані про новий бібліотекаря:');
write ('Ім'я:'); readln (sb.name); ('Прізвище:'); readln (sb.lname); ('батькові:'); readln (sb.fname) ; ('Посада:'); readln (sb.dolzh);
write (spbiblio, sb); ('Хочете додати ще одного бібліотекаря? (Д Н)>'); readln (k);; (k = 'н') or (k = 'Н'); (spbiblio);;
{-------------------------------- Видалення бібліотекаря ------- ---------------} Clearbibl; sb: biblio;: string;: file of даних про бібліотекаря '); ris (24); writeln ('');
writeln ('Введіть прізвище бібліотекаря дані про який ви хочете видалити:');
readln (udal);: = 0; not eof (spbiblio) do (spbiblio, sb); udal = sb.lname then x: = 1;; x = 0 then begin writeln ('Бібліотекаря з таким прізвищем немає! '); readln; end (spbiblio); reset (spbiblio);
writeln ('Ви точно хочете видалити бібліотекаря на прізвище', udal, '(Д Н)') ; p align="justify"> readln (otv); (otv = 'Д') or (otv = 'д') thennot eof (spbiblio) do (spbiblio, sb); sb.lname <> udal then write ( fo, sb);; (spbiblio); (fo); (spbiblio); (fo, 'bibl.txt');
end; end;;
{--------------------------------- Перегляд списку бібліотекарів ----- -----------}
procedure списку бібліотекарів '); ris (25); writeln (''); (' Ім'я: ', sb.name); (' Прізвище: ', sb.lname); (' батькові: ', sb.fname); ( 'Посада:', sb.dolzh);
ris (80); ('Для виходу натисніть ');
k: = readkey; (EoF (spbiblio)) or (k = # 27); (spbiblio);;
TextAttr: = norm;;
{--------------------------------- Основна програма ------ -----------------}
Begin (spknig, 'knigi.txt'); (spreader, 'read.txt'); (spbiblio, 'bibl.txt'); {Перевірка файлів на існування}
{$ I-} (spknig);
{$ I +} IOResult <> 0 then begin rewrite (spknig); reset (spknig); end; (spknig);
{$ I-} (spreader);
{$ I +} IOResult <> 0 then begin rewrite (spreader); reset (spreader); ...
