Стек и очередь в Delphi

[Yustinka]

Здравствуйте программисты Помогите пожалуйста написать код на Delphi

Организовать в динамической памяти стек и очередь, с возможностью вставки и удаления данных по ключу. Для этого описать запись содержащую как минимум два поля: информационное и тип указатель
Написать процедуры добавления элементов в стек и очередь, вывода значений на экран, вставки элемента перед или после первого элемента с заданным значением ключевого поля.

[p51x]

гуглите:
Вирт Алгоритмы и структуры данных
Фундаментальные альгоритмы и структуры данных в Delphi

[Yustinka]

Тогда можете подсказать, так или нет, и в чём ошибка.

program z114;

type
TPSpisok=^TSpisok;
TSpisok = record
chislo:integer;
next: TPSpisok;
end;

Var spisok1,spisok2:TPSpisok;
a,i,n:integer;

procedure input(a:integer;var head: TPSpisok);
var temp:TPSpisok;
begin
new(temp); //создание нового элемента списка
temp.chislo:=a;
// добавление в начало списка
temp.next:=head;
head:=temp;
end;

procedure output(var head:TPSpisok);
var temp:TPSpisok;
begin
temp:=head;
while temp <> NIL do
begin
Writeln(temp.Chislo);
temp:=temp.next;
end;
end;

begin
Readln(n);
for i:= 1 to n do begin
Readln(a);
Input(a,spisok1);
end;
for i:= 1 to n do begin
Readln(a);
Input(a,spisok2);
end;
output(spisok1);
output(spisok2);;
readln;
end.