Добавить элемент в Б-дерево

type spis=^tbook;
        {книги}
        book=record
        autor:array[1..12] of char;
        titleFIO:array[1..32] of char;
        publisher:array[1..16] of char;
    year:word;
    pages:word;
     end;
     {список книг}
     tbook=record
       data:book;
       pr,sl:spis;
     end;
........
    {вершины дерева - дата выпуска и индеск массива}
     idate=record
       adate:integer;
       iindx:book;
......
    pVartex=^Vartex;
    Vartex=record
        tData:idate;
        Left:pVartex;
        Right:pVartex;
        HR:boolean;
        VR:boolean;
        BAL:0..1;
    end;
.......
{запуск процедуры из основной программы }
var p:spis;
......
    while p<>nil do begin
        ADDVartexB(p^.data.year,root,p^.data);
        p:=p^.sl;
    end;
........
       {добавление вершины в Б-дерево}
procedure ADDVartexB(dat:integer;p:pVartex;ind:book);
var
  HR,VR:boolean;
  q:pVartex;
begin
  if p=nil then   {если ноль}
    begin         {создаем вершину}
      add:=true;
      new(p);
      p^.tData.adate:=dat;
      p^.tData.iindx:=ind;
      p^.Left:=nil;
      p^.Right:=nil;
      p^.BAL:=0;
      VR:=true;
      TExist:=true;
  end
  else
    begin
      if p^.tData.adate>dat then  {переход на левую ветвь (двигаемся по дереву) }
        begin
          ADDVartexB(dat,p^.Left,ind); {переход или добавление левой вершины}
          if (VR=true) then
            begin
              if p^.BAL=0 then  {проверка страницы}
                begin
                  q:=p^.Left; {сцепляем вершину и размещаем ее на этой же странице}
                  p^.Left:=q^.Right;
                  q^.Right:=p;
                  p:=q;
                  p^.BAL:=1;
                  VR:=false;
                  HR:=true;
                end
              else
                begin
                  p^.BAL:=0;
                  HR:=true;
                end;
            end
          else
            begin
              HR:=false;
            end;
        end
      else
        begin
          if p^.tData.adate<dat then {переход на правую ветвь{двигаемся по дереву)}
            begin
              ADDVartexB(dat,p^.Right,ind); {переходим на левую ветвь или добавляем вершину}
              if VR=true then
                begin
                  p^.BAL:=1;
                  VR:=false;
                  HR:=true;
                end
              else
                begin
                  if HR=true then
                    begin
                      if p^.BAL>0 then
                        begin
                          q:=p^.Right;  {присоединение вершины со смещением вверх}
                          p^.Right:=p^.Left;
                          p^.BAL:=0;
                          q^.BAL:=0;
                          q^.Left:=p;
                          p:=q;
                          VR:=true;
                          HR:=false;
                        end
                      else
                        begin
                          HR:=false;
                        end;
 
                    end;
                end;
            end;
        end;
    end;
end;