Разработать алгоритм дабавления в цепной список

[BIS88]

Друзья помогите.
Пусть стек представлен в виде цепного списка. Разработать алгоритм добавления нового элемента

[BIS88]

Вот кое-какие наработки
Type
PList = ^Tlist;
TList = Record
data:integer;
next:PList;
end;

var
Head,x:PList;
n,i:integer;

begin
New(Head);
Head^.next:=Nil;
write('wwedi kolishestwo elementow spiska - ');
readln(n);
writeLN('wwedite 1 element spiska');
Readln(Head^.data);
x:=Head;
for i:=2 to n do begin
New(x^.next);
x:=x^.next;
writeLn ('wwedite ', i, ' element spiska');
readLn(x^.data);
x^.next:=nil;
end;

x:=Head;
while x^.next <> Nil do begin
writeln('elementy spiska - ', x^.data);
x:=x^.next;
end;
readln;
end.

Но это не совсем то что нужно, просьба подправить или доработать этот исходник, так что бы удовлетворял описаному выше заданию.

[BIS88]

всем огромное спасибо, я разобрался вот если кому интересно исходник
procedure PushInStack(var Top : PStack; Data : DataType);
var
Temp : PStack; {вспомогательная переменная}
Begin
New(Temp); {выделение памяти под новый элемент}
Temp^.Data := Data; {заполнение поля данных}
Temp^.Next := Top; {установка связи}
Top := Temp; {изменения указателя на вершину}
End;