дерево ну или список "вставка"

[Madmaxisss]

помогите плизз со вставкой элемента

FUNCTION ADD(d: tree; k: tree; s:string): tree; 
var p1, pp: tree;
begin
   pp:=k; // корень или начальный элемент
   while pp<>nil do 
   begin
      if pp=d then // d элемент после которого вставляется элемент с S значением
      begin            
            if pp^.next=nil then 
               begin 
                
                  //если элемент последний, то как быть???
                  
               end
            else
              begin // эта вставка, элемент d находится не вначале и не в конеце
                  new(p1);
                  p1^.next:=pp^.next;  
                  p1^.sss:=s; 
                  pp^.next:=p1;
            end;
         break;
      end;
   pp:=pp^.next;
   end;
   pp:=k;
   ADD:=pp;
end;

[GetMax]

Судя по структуре у вас односвязный список, тогда добавить в него элемент можно так:

Procedure ADD(var lst:TList; value:string);
Var
  tmp:TList;
Begin
  if lst = nil then
  Begin
    new(lst);
    tmp:=lst
  End
  else
  Begin
    tmp:=lst;
    while tmp^.Next <> nil do
      tmp:=tmp^.Next;
    new(tmp^.Next);
    tmp:=tmp^.Next;
  End;
  tmp^.Next:=Nil;
  tmp^.Val:=value
End;

[eoln]

...
      if pp=d then // d элемент после которого вставляется элемент с S значением
      begin            
            {if pp^.next=nil then 
               begin 
                
                  //если элемент последний, то как быть???
                  
               end
            else}
              begin // эта вставка, элемент d находится не вначале и не в конеце и конеце тоже
                  new(p1);
                  p1^.next:=pp^.next;  
                  p1^.sss:=s; 
                  pp^.next:=p1;
            end;
         break;
      end;
...

[Madmaxisss]

sorry что долго не отвечал((( да, eoln как всегда прав - твой вариант работает))) спасибо и GetMax ))) eoln и GetMax по +