Форум АНТИЧАТ - Показать сообщение отдельно

Создаешь запись type Person = record .где внутри есть указатель на следующий элемент этого-же типа( объявленный выше). Перед этим создаешь тип - указатель на эту запись(он как раз и описан внутри записи).

Код:

type
       Pperson = ^Person; // создаем указатель на тип Person;
              Person= record
              Key: integer       //ключ? 
              Next: Pperson   //адреса следующего элемента
       end; // закрываем запись.

var 
       Temp, First, Pn: PPerson; 
       N,i:byte;
Begin
       First := Nil;
       writeln('N?');
       readln(N);
       for i :=1 to N do
       begin 
              Getmem(Temp, Sizeof(Person)); //выделили память.
              If First = nil then  First:=Temp
              else 
                    Pn^.next :=Temp;
              Pn :=Temp;
       
       end;
temp^.next=Nill; //последний элемент конечный
End.

Как-то так, писал впопыпах и ночью. Это мы создали очередь, удаление из конца доделай сам.