Реферат Розробка інформаційної системи бібліотеки

(b); new (massm); new ( c);

poz: = 1;

: ('Якщо у вас є БД для цієї програми Y, якщо нету натисніть N');

readln (y); (y = 'y') or (Y = 'Y') then begin

9:;

Writeln ('Введіть ім'я файлу для роботи з БД');

readln (txtfile);: = txtfile + '. txt'; FileExists (txtfile) = true then begin

:: = 1;;;;;: = 9; (v); poz of

: sozdzap;

: vivod;

: vivodcexa;

: poisk;

: del2;

: sozdbd;

: goto 9;

: vivodpol;

: goto 22;; goto 10;

end ('Такий БД не існує'); ('Натисніть Enter для продовження');

readln ();; goto 8;

else; 8;

: (n); dispose (buff); dispose (a); dispose (x); dispose (b); dispose (l); (l1); dispose (c);

CloseWindow;

end.