Неправильно работает код удаления слова из строки Опции

[-студент-]

Дана строка типа слово1 слово2 слово3 слово1
Надо чтобы после парсинга строки удалились дубликаты те получилось
слово1 слово2 слово3

Код

var
  t,single:string;
  i,j:integer;


function word(t_temp:string; var count: integer):string;
  var
    l1,l2:integer;
  begin
    delete(t_temp, 1, count);
    l1:=pos(' ', t_temp);
    l2:=pos(',', t_temp);
    while (l1=1) or (l2=1) do
      begin
        l1:=pos(' ', t_temp);
        l2:=pos(',', t_temp);
        if (l1=1) or (l2=1) then
          begin
            delete(t_temp,1,1);
            inc(i);
          end;
      end;
    if l1<l2 then
      begin
       result:=copy(t_temp,1,l1);
       inc(count, l1)
      end
    else
      begin
        result:=copy(t_temp,1,l2);
        inc(count,l2);
      end;
end;

function double(t_temp:string; sub:string; vaar count:integer):boolean;
  begin
    delete(t_temp,1,count);
    j:=pos(sub,t_temp);
    if j= 0 then result:=false
    else
      result:=true;
  end;

procedure cut(var str:string; sub:string; var count:integer);
  begin
    j:=pos(sub,str);
     while j<>0 do
      begin
        j:=pos(sub,str);
        delete(str,j,length(sub));
      end;
  end;

begin
  writeln('Enter your string...');
  readln(t);
  i:=0;
  while i<=length(t) do
    begin
      single:=word(t,i);
      if double(t,single,i) then
        cut(t,single,i)
      else inc(i);
    end;
  writeln(t);
  readln;
end.

Помогите пожалуйста