const
  Garaj_Slot = 100;

type
  TKompaniya = class
  private
    Mas: array[1..Garaj_Slot] of TGaraji;
    Mas_First, Mas_Last: integer;
    Mas_Count: integer;
  public
    constructor Create();

    function Add_Garaj(aGaraj_Info: TGaraji): boolean;
    function Del_Garaj: boolean;
  end;
implementation

constructor TKompaniya.Create();
begin
  Mas_First := 1;
  Mas_Last := 1;
  Mas_Count := 0;
end;

function TKompaniya.Add_Garaj(aGaraj_Info: TGaraji): boolean;
begin
  Result := False;

  if Mas_Count <> Garaj_Slot then
  begin
    Mas[Mas_Last] := aGaraj_Info;
    Mas_Last := Mas_Last + 1;
    Mas_Count := Mas_Count + 1;
    if Mas_Last > Garaj_Slot then
      Mas_Last := 1;
    Result := True;
  end;
end;

function TKompaniya.Del_Garaj: boolean;
begin
  Result := False;
  if Mas_Count <> 0 then
  begin
    Mas[Mas_First] := nil;
    Mas_First := Mas_First + 1;
    if Mas_First > Garaj_Slot then
      Mas_First := 1;
    Mas_Count := Mas_Count - 1;
    Result := True;
  end;
end;