База данных: добавить процедуры добавления и удаления элемента из базы

program baza;
uses crt;
const n=3;
type
TRec=record
    value:real;
    extract:integer;
    cost:integer;
    end;
      var
 BD:array[1..n]of TRec;
 i:1..n;
 
 
 procedure Input_Data;  
 begin
 clrscr;
    writeln('Информация о коньяке',i);
     with BD[i] do
     begin
       writeln('Объём:'); readln(value);
       writeln('Выдержка:'); readln(extract);
       writeln('Стоимость:'); readln(cost);
       writeln;
     end;
    end;
 
 
 procedure Write_Data;  
  begin
     writeln('Коньяк №',i);
  with BD[i] do
    begin
    writeln('Объъём:',value);
    writeln('Выдержка:',extract);
    writeln('Стоимость:',cost);
    end;
    end;
 
 
begin
  For i:=1 to n do
  Input_data;
  For i:=1 to n do
  write_data;
 
    end.

uses crt,CMEM;
type
    TRec=record
        value:real;
        extract:integer;
        cost:integer;
    end;
    MyArray = array[1..maxint]of TRec;
    MyType = ^MyArray;
 
procedure _Add(var BD:MyType;var Size:integer);
begin
    Size:=Size+1;
    Realloc(BD,Size*Sizeof(TRec))
end;
 
procedure _Delete(var BD:MyType;var Size:integer);
begin
    Size:=Size-1;
    Realloc(BD,Size*Sizeof(TRec))
end;
 
procedure Input_Data(var BD:MyType;Cout:integer); 
begin
    clrscr;
    writeln('Информация о коньяке',Cout);
    with BD^[Cout] do
    begin
        writeln('Объём:'); readln(value);
        writeln('Выдержка:'); readln(extract);
        writeln('Стоимость:'); readln(cost);
        writeln;
    end;
end;
 
 
procedure Write_Data(var BD:MyType;Cout:integer);
begin
    writeln('Коньяк №',Cout);
    with BD^[Cout] do
    begin
        writeln('Объъём:',value);
        writeln('Выдержка:',extract);
        writeln('Стоимость:',cost);
    end;
end;
 
{-------------------}
function _regDown(_Str:String):String;
var
    len:integer;
    i:integer;
begin
 
    len:=length(_Str);
    for i:=1 to len do
    begin
        if(_Str[i] in ['A'..'Z'])then
        begin
            _Str[i]:=chr(ord(_Str[i])+25);
        end;
        if(_Str[i] in ['А'..'Я'])then
        begin
            _Str[i]:=chr(ord(_Str[i])+32);
        end;
    end;
    _regDown:=_Str;
end;
{-------------------}
 
var
    BD:MyType;
    Size:integer;
    _Exit:boolean;
    FlagAdd:String;
begin
 
    Size:=1;
    _Exit:=False;
    FlagAdd:='';
 
 
    GetMem(BD,1*Sizeof(TRec));
    repeat
 
        Input_data(BD,Size);
        write_data(BD,Size);
        
        write('Добавить новую запись?(yes/no)');
        readln(FlagAdd);
        if(_regDown(FlagAdd) = 'yes')then
        begin
            _Add(BD,Size);
        end
        else
            _Exit:= True;
        
        
        write('Удалить новую запись?(yes/no)');
        readln(FlagAdd);
        if(_regDown(FlagAdd) = 'yes')then
        begin
            _Delete(BD,Size);
        end
        else
            _Exit:= True;
    until (_Exit = True);
    FreeMem(BD);
end.