Menin – процедура яка забезпечує управління головним меню

Punkt – процедура для зарисовки певної області

Vv – процедура для введення та збереження даних

Red – процедура для редагування збережених раніше відомостей

Udal – процедура для видалення всієї бази.

2. Вихідний код програми

usescrt, dos;

type b=record

av:string[10];

fio, pas, mg:string[15];

end;

var f:file of b; bas:b;

procedure ramka (x1, y1, x2, y2, a:byte);

var i:integer;

begin

textcolor(0);

window (x1, y1, x2, y2);

textbackground(a);

clrscr;

write('Й');

for i:=1 to (x2-x1) – 1 do

begin

write('Н');

end;

write ('» ');

for i:=2 to (y2-y1) – 1 do

begin

gotoxy (1, i);

write('є');

gotoxy (x2-x1+1, i);