[programming]

Доброго времени суток
Дана задача "среди подряд повторяющихся элементов списка оставить только один". Я создаю список рандомом, заношу в memo, откуда уже провожу процедуру сравнения, и на этом программа либо останавливается и виснет, либо выдает ошибку доступа к памяти. Перепробовала около четырех вариантов, но ни один не срабатывает, даже элементарный "переставить указатель на следующий и очистить память".
Подскажите пожалуйста, как можно реализовать данный алгоритм?

{Объявляю список}
type
  TPtr=^TElm;
  TElm=record
    inf:integer;
    link:TPtr;
  end;
...
{Задаю список}
p:=nil;
for i:=n downto 1 do
begin
new(q);
q.inf:=random(20)-10;
q.link:=p;
p:=q;
end;

{Ввод условия}
while q<>nil do
if q.inf=q^.inf then
...