Поиск по бинарному дереву, построение бинарного дерева

  ptree=^tree;
  tree=record
    id:integer;
    key:string;
    left,right: ptree;
    end;
var
  Form2: TForm2;
     tt: boolean;
     head,root,q,p: ptree;
     cs:integer;
 
procedure preorder (treee: ptree;ls:string); //рекурсивная процедура для поиска по бинарному дереву
begin
  if treee<>nil then //если дерево не пусто, то
  begin
    if ls=treee^.key then (если то, что мы ищем равно key текущего листа, то выводим на стринггрид)
            begin
            Form1.StringGrid1.RowCount:=cs+1;
            Form1.StringGrid1.Cells[0,cs]:=inttostr(treee^.id);
            Form1.StringGrid1.Cells[1,cs]:=bibl[treee^.id].avtor;
            Form1.StringGrid1.Cells[2,cs]:=bibl[treee^.id].name;
            Form1.StringGrid1.Cells[3,cs]:=bibl[treee^.id].izdat;
            Form1.StringGrid1.Cells[4,cs]:=bibl[treee^.id].god;
            //showmessage ('найдено id='+inttostr(treee^.id));
            cs:=cs+1;
            end;
    preorder(treee^.left,ls);
    preorder(treee^.right,ls);
  end;
end;
 
 
procedure vstavka(var l: ptree; k:string);//процедура поиска места для вставки следующего листа - она то и не работает. постоянно указатель на голове и дерево в результате строится неправильно.
begin
  if k>l^.key then begin //если то, что нам нужно вставить больше чем l^.key, то
    if l^.right<>nil then begin //если не пусто идеи вправо
      vstavka(l^.right,k);
      exit;
      end;
    end
  else
    if l^.left<>nil then //иначе влево
      vstavka(l^.left,k);
end;
 
procedure NewTree_avtor(var kol:integer);//построение дерева, пусть для начала только по автору
var sr:integer;
begin
  new(p);
  p^.key:=bibl[1].avtor; //строим головной элемент
  p^.id:=1;
  p^.left:=nil;
  p^.right:=nil;
  head:=p;
  sr:=2;
    while sr<=kol do //kol - текущий размер записей в массиве
    begin
        p:=head; //кидаем указатель на голову
       new(q);
        q^.key:=bibl[sr].avtor; //создаем новый лист, заполняем его поля
        q^.id:=sr;
        q^.left:=nil;
        q^.right:=nil;
        vstavka(p,bibl[sr].avtor); //вызываем процедуру для поиска места дял вставки
          if bibl[sr].avtor<p^.key then //после нахождения места если меньше - идем влево, 
            p^.left :=q
            else
            p^.right:=q; //если больше - вправо
    sr:=sr+1;
    end;
end;