· Na – поле для назви підприємства

· Re – поле для адреси

· Vl – поле для ПІБ власника

Pamka – малює рамку

Voz – відповідае за введення та збереження інформації

Viv – пошук в базі даних

Dal – для видалення

Newreadkey – розширений код клавіши

Rrr – допоміжна для рамки

Prig – меню програми

2. Алгоритми

2.1 Алгоритм основної програми

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

uses crt ,dos;

type p=record

na,re,

string[15];

end;

var f: file of p;pr:p;

st1,st2,st3,st4:string;

e:char;d,pu:byte;

{--------------}

procedure pamka (x1,y1,x2,y2:integer);

var i,c:integer;

begin

textcolor(1);

gotoxy(x1,y1);

write(#201);

for i:=1 to x2-x1-1 do

begin

gotoxy(x1+i,y1);

write(#205);