39;Це даний читач (Д Н)?');
readln (qwe);; (qwe = 'д') or (qwe = 'Д') then begin nomchh: = sk.nomch; x: = 2; end;; (spreader); reset (spreader);
x: = 0;: = 'q'; ('Ви точно хочете видалити читача з прізвищем', udal, '(Д Н)');
readln (otv); (otv = 'Д') or (otv = 'д') thennot eof (spreader) do (spreader, sk); sk.nomch <> nomchh then write ( fo, sk);; (spreader); (fo); (spreader); (fo, 'read.txt');
end; end;;
{--------------------------------- Перегляд списку читачів ----- -----------}
procedure списку читачів''); ris (27); writeln ('');
writeln ('Унікальний номер читача:', sk.nomch);
writeln ('Ім'я:', sk.name); ('Прізвище:', sk.lname); ('батькові:', sk.fname);
writeln ('Домашній телефон:', sk.tel); ('Домашня адреса:', sk.adress); ('Вік:', sk.voz);
If (sk.naruk = 'Так') or (sk.naruk = 'ТАК') or (sk.naruk = 'так') or (sk.naruk = 'так')
then ('Унікальний номер книги на руках', sk.nomk); (' Термін повернення:', sk.densv, '', sk.messv, ' ', sk.godsv);; (80); (' Натисніть "Esc" для закінчення ');: = readkey;
Until (EoF (spreader)) or (k = # 27);
close (spreader);;
{-------------------------- Редагування даних про читача ----------- -----}
procedure даних про читача '); ris (24); writeln ('');
with sk do ('Введіть прізвище читача дані про який ви хочете змінити:');
readln (famchh);: = 0; not eof (spreader) do (spreader, sk); famchh = sk.lname then x: = 1;; x = 0 then begin writeln ('Читача з таким прізвищем немає! '); readln; end (spreader); reset (spreader);: = 0;: =' q '; (x <> 2) do (spreader, sk); famchh = sk.lname then ('Ім'я:', sk.name); ('Прізвище:', sk.lname); ('батькові:', sk.fname);
Writeln ('Це даний читач (Д Н)?');
readln (qwe);; (qwe = 'д') or (qwe = 'Д') then begin nomchh: = sk.nomch; x: = 2; end;; (spreader); reset (spreader); not eof (spreader) do (spreader, sk); sk.nomch = nomchh then
begin ('Заповніть дані для зміни:');
write ('Ім'я:'); readln (sk.name); ('Прізвище:'); readln (sk.lname); ('батькові:'); readln (sk.fname) ;
write ('Домашній телефон:'); readln (sk.tel);
write ('Домашня...
