
Lib_adata -    

procedure define(countMass: integer);
    ,        .

function count: integer;
  countMass .

procedure init(indexMass: integer);
    indexMass   . indexMass     0..countMass-1.

procedure additem(indexMass: integer, strItem: string);
  strItem    indexMass.  [indexMass]  ,   .

procedure setitem(indexMass: integer, indexItem: integer, strItem: string);
    indexItem  strItem  [indexMass]. indexItem     0..getsize(indexMass)-1.

procedure delitem(indexMass: integer, indexItem: integer);
    indexItem  [indexMass],      .

function getitem(indexMass: integer, indexItem: integer): string;
    indexItem  [indexMass].

function getsize(indexMass: integer): integer;
  [indexMass].
