Pascal - Удаление одинаковых элементов списка

[assasko]

Здравствуйте, никак не могу разобраться с указателями. Не могли бы вы помочь мне. Стоит задача:"Есть список строк. Нужно написать подпрограмму, которая оставляет в списке только первые вхождения одинаковых элементов." У меня получилось создать список и вывести его, а вот с удалением повторяющихся элементов возникли проблемы. Помогите пожалуйста решить данную задачу.

uses crt;
type 
  ptr=^Item;  {Ukazatel na element}
  Item=record
    data:string;
    next:ptr; {Ukazatel na sled. element}
   end; 
var head:ptr; {Ukazatel na nachalo spiska}
    current, x, last: ptr; {Ukazateli na tekuschiy,prediduschiy i posledniy element spiska}
    str:string;
    i,n:integer;
procedure add(value:string);{Zapolnenie spiska}
  begin
    new(current);
    current^.data:=value;
    current^.next:=nil;
      if last=nil then
        head:=current
      else last^.next:= current;
    last:=current;  
  end;
procedure outlist;{Vivod spiska}
  begin
    current:=head;
    writeln('Vivod spiska: ');
    repeat
      write(current^.data,' ');
      current:=current^.next;
    until current=nil;
   writeln;
  end;
{procedure SearchDelete;
  begin
  end;}
{MAIN}
begin
clrscr;
  write('Vvedite dlinnu spiska: ');
  readln(n);
  for i:=1 to n do 
    begin
      writeln('Vvedite ',i,' element spiska');
      readln(str);
      add(str);
    end;  
  outlist;
  {SearchDelete;
  outlist;}
readln;
end.