БД - PascalABC.NET

uses CRT;
 
const
max = 3; //Константа - максимальное количество твоих записей
 
type
baza = record
  nomer_bibl: integer; // Номер библиотеки 
  nazvanie: string[30]; //Название библиотеки
  adress: string[50]; //Адресс
  telefon_bibl: integer; //Телефон библиотеки
end;
 
mas = array[1..max] of baza; //массив для хранения записей
 
var
  p_Baza: mas; // Переменная для работы с базой
 
procedure add;
{Процедура добавления данных в запись}
var
  i: byte;
begin
for i:= 1 to max do
  begin
    with p_Baza[i] do
      begin
        WriteLn('Заполняем ', i, ' запись');
        Write('Введите номер библиотеки: ');
        ReadLn(p_Baza[i].nomer_bibl);
        Write('Введите название библиотеки: ');
        ReadLn(p_Baza[i].nazvanie);
        Write('Введите адресс библиотеки: ');
        ReadLn(p_Baza[i].adress);
        Write('Введите телефон библиотеки: ');
        ReadLn(p_Baza[i].telefon_bibl);
      end;
  end;
end;
procedure outdisplay;
{Процедура вывода на экран}
var
  i: byte;
begin
  for i := 1 to max do
    begin
      with p_Baza[i] do
        begin
          WriteLn('Номер библиотеки: ', p_Baza[i].nomer_bibl);
          WriteLn('Название библиотеки: ', p_Baza[i].nazvanie);
          WriteLn('Адресс библиотеки: ', p_Baza[i].adress);
          WriteLn('Номер телефона библиотеки: ', p_Baza[i].telefon_bibl);
          WriteLn;
        end;
    end;
end;
{Основное тело программы}
begin
add;
outdisplay;
end.