Двусвязные списки.

[Vadim0494]

Прошу помочь в исправлении кода. Нужно просто изменить так, чтобы вносить элементы в конец списка. Т.е. я ввожу 1,2,3,4,5,6 оно так и выводило, а не наоборот. Вообще не понимаю эту тему, менял уже все в программе но даже с большим кол-вом изменений у меня либо вообще перестает выводить ответ либо ничего не меняется. Пожалуйста помогите глупому только без процедур.

PHP код:

program laba5;
const n=10;
type ptt=^node;
node=record
inf:integer;
next:ptt;
prev:ptt;
end;
var i:byte;p,q,pk:ptt;ch:char;
a,k,sum:integer;
begin
new(p);
P^.inf:=1;
p^.next:=PK^.next;
pk^.next^.prev:=P;
pk^.next:=p;
p^.prev:=pk;
for i:=2 to n do
begin
new (p);
writeln ('Vvod ',i,' elementa=');
readln(p^.inf);
p^.next:=q^.next;
q^.next:=p;
end;
while P<>nil do
begin
write(' ',P^.inf);
P:=P^.next;
end;
 
readln;
end. 


[eoln]

var i:byte;p,q,first:ptt;
begin 
  p:=nil;
  q:=nil;
  first:=nil;
  for i:=1 to n do 
  begin 
    q:=p;//запоминаем предыдущий элемент
    new (p); //создаём новый
    if first=nil then first:=p;//если первого элемента списка ещё нет, то этот элемент становится первым
    write ('Vvod ',i,' elementa='); 
    readln(p^.inf); 
    p^.next:=nil; //следующего элемента пока нет
    p^.prev:=q;//устанавливаем связь текущего элемента с предыдущим
    if q<>nil then q^.next:=p;//устанавливаем связь предыдущего элемента с текущим (если предыдущий элемент существует)
  end; 
  p:=first;//переходим на начало списка
  while P<>nil do 
  begin 
    write(' ',P^.inf); 
    P:=P^.next; 
  end;   
  readln; 
end.

[Vadim0494]

Огромное спасибо .