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

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
      current:=head;
      x:=head;
      repeat
      if current^.data=x^.data then
      x^.next:=current^.next;
      dispose(current);
      until (current^.next=nil);
  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.