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

var 
       Temp, First, Second, 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 
                     second^.next :=temp;
              Second :=temp;
       
       end;
temp^.next=Nill;
End.