Помогите пожалуйста исправить ошибку!!!Please!!!

[Irin@]

Здравствуйте! Задача звучит так: Используя линейные списки для хранения последовательности чисел. Опишите процедуру,которая вставляет:
а) новый элемент Е1 перед первым вхождением элемента Е, если Е входит в список;
б) новый элемент Е перед последним элементом непустого списка;

У меня не идет второе условие, не знаю где исправить(procedure pos).
вот код:
type telem=0..999;
list=^node;
node=record
info:telem;
next:list;
end;
var
s,l:list;
x,e,e1:telem;
n,i:integer;

procedure insert(l:list; e,e1:telem); {новый элемент перед первым вхождением}
var
p,q:list;
eq:boolean;
begin
p:=l; eq:=false;
while (p<>nil) and not eq do
if p^.info=e then eq:=true
else p:=p^.next;
if eq then
begin
p^.info:=e1; new(q); q^.info:=e;
q^.next:=p^.next; p^.next:=q;
end;

end;


procedure pos(l:list; e1:telem); {новый элемент перед последним элементом}
var
p,q:list;
begin
new(q); q^.info:=e1; q^.next:=nil; q:=l;
while p^.next<>nil do p:=p^.next; p^.next:=q;
end;

procedure out_spisok(l:list); {выводит список на экран*}
begin
while l<>nil do
begin
s:=l^.next;
write(l^.info, '');
l:=s;
end;
writeln;
readln;
end;

begin
{формируем список}
s:=nil;
writeln ('Введите количество элементов списка*: ');
readln(n);
for i:=1 to n do
begin
new(l);
l^.next:=s;
readln (x);
l^.info:=x;
s:=l;
end;

writeln ('Список: ');
out_spisok(l);
writeln ('Введите элемент перед которым хотите вставить: ');
readln(e);
writeln ('Введите элемент который хотите вставить: ');
readln(e1);
insert(l,e,e1);
writeln ('Полученный список: ');
out_spisok(l);
writeln ('Введите элемент который хотите вставить: ');
readln(e1);

writeln('Список: ');
pos(l,e1);
out_spisok(l);

while l<>nil do {Освобождаем динамическую память}
begin
s:=l^.next;
dispose(l);
l:=s;
end;

end.

[alexBlack]

p не инициализировано перед циклом:

new(q); q^.info:=e1; q^.next:=nil; p:=l;