Спсики с указателями, список в списке?!(Delphi)

[Npwas]

Спасите кто мой мозг от тресканья, до этого я все осознавал, но Списки с указателями рушат мой мозг!!!
Я тут еле настряпал простой варриант работы со списками, трудно мне как то они представляются!!! Можете показать как сделать вложенные списки, типо термин:подтермины, следующий термин: его подтермины и т.д.!!! Можете привести пример как данное осуществить!!! Вот это пока то что я настряпал, но дальше никак продвинуться не могу!!!

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Type
  Ukazatel = ^LIST;
  LIST = record
    name:string;
    next:Ukazatel;
  end;
Var
  u,Head:Ukazatel;
  g:Integer;
 Digit :string ;
Procedure Input(dig:string);
Var
  tmp:Ukazatel;
BEGIN
 if u = nil then
   Begin
      new(u);
      tmp:=u ;
       Head:=u;

   End
 Else
  Begin
    tmp:=u;
    Head:=u;
   while tmp^.next <> nil do
     tmp:=tmp^.next;
     new(tmp^.next);
     tmp:=tmp^.next;
     Head:=u;
  End;
  tmp^.next:=nil;
  tmp^.name:=dig;
END;

Procedure Vivod;
 BEGIN
  u:=Head;
  while u <> nil do
             Begin
                Writeln(u^.name);
                u:=u^.next;
             End;
  u:=Head;
  writeln;
 END;

Procedure Found(dig:string);
Var
 figoro:boolean;
 BEGIN
 figoro:=true;
 u:=Head;
  while u <> nil do
   Begin
    If (u^.name=dig) and (figoro) then
     begin
      Writeln('Vi eto slovo iskali:  ',u^.name);
      figoro:=false
     end
    else
     u:=u^.next;
   End;
   u:=Head;
  writeln;
 END;
{ПРОЦЕДУРА УДАЛЕНИЯ УКАЗАННОГО ЭЛ-ТА}
Procedure Del(dig : string);
Var
  x, dx : UKAZATEL ;
Begin
  x := u;
  while x<>Nil do
    if x^.name=dig
      then
        Begin
          if x=u
            then
              Begin
                u := u^.Next;
                Dispose(x);
                x := u;
              End
            else
              Begin
                dx^.Next := x^.Next;
                Dispose(x);
                x := dx^.Next;
              End;
        End
      else
        Begin
          dx := x;
          x := x^.Next;
        End;
End;


BEGIN
 g:=1;
  While g<>0 do
   begin
     Writeln('1.Vvod');
     Writeln('2.Vivod');
     Writeln('3.Poisk');
     Writeln('4.Udalenije');
     Writeln('0.Vihod');
     Readln(g);
     Writeln;
     case g of
        1: Begin
               Write('Vvedite slovo:  ');
               Readln(Digit); //заполняем список до нулевого элемента
                Input(Digit)
           End;
        2: Vivod;
        3: Begin
               Write('Vvedite iskomoe slovo:  ');
               writeln;
                Readln(Digit); //заполняем список до нулевого элемента
                Found(Digit);
           End;
       4: Begin
            Write('Kakoj element vi hotite udalitj:  ');
            Readln(Digit);
            Del(Digit);

          End;
     end
   end;
End.

[Hacker19_90]

Данная задача

вложенные списки, типо термин:подтермины, следующий термин: его подтермины и т.д.

можно реализовать с помощью деревьев
Вот тут можно почитать!

[Npwas]

Спасиб(навесы уже нажал)!!! А так это получается такой типаж создания списков как бы деревьями называют или при поиске данной информации я могу на че-нибудь другое наткнуться?!

[Npwas]

Вот всетаки наши преподы гады!!! "Через списки делайте"!!! Нет,чтоб сказать про то что и деревья нужны, мы их даже и не проходили, вообще через 2-ва месяца должны пройти!!! Странно, материал про это в конце методы, а учиться еще до июня, интересно че дальше делать будем!!!