Связный (линейный) список

type
    ukaz = ^element; {указатель на элемент списка}
    element = record   {собственно сам элемент списка}
      info: string;     {поле элемента списка}
      next: ukaz;       {указатель на следующий элемент списка}
    end;
 
Procedure Insert_End(Golova, Hvost:ukaz);
begin
 new(Hvost^.next);   {добавляем в конец списка элемент}
 Hvost:=Hvost^.next;
 Hvost^.info:=Golova^.info;  {копируем содержимое первого элемента в доб. элемент}
 
end;
 
 
var Head, Tail:ukaz; {Head- указатель на голову списка(первый элемент) tail- на хвост спика}
    i:integer;
    n:ukaz;
begin
  new(Head); //выдяляем память под первый элемент
  Head^.next:=nil;
 tail:=head;
 
   for i:=1 to 10 do   {Создаем список из 11 элементов}
    begin
      new(Tail.next);
      Tail:=Tail^.next;
      Tail^.next:=nil;
    end;
 
    Insert_End(Head, Tail);
    readln;
 
   n:=Head;
    while n<>nil do       {удаление списка - освобождение памяти}
     begin
       n:=n^.next;
       dispose(head);
       head:=n;
     end;
end.