удаление повторяющих слов в строке

[Андрей.12]

подскажите, почему не работает код(программа должна удалять повторяющие слова в строке)

const
  dividers=[' ','.'];
var
  temp,s:string;
  a:array[1..128]of string;
  i,j,max:integer;
  fl:boolean;
  f:text;
begin
assign(f,'d:121.txt') ;
reset(f);
readln(f,s);
  temp:='';
  {выделяем и удаляем повторы слов из строки}
  i:=1;
  while i<=length(s) do
  begin
    if not (s[i] in dividers) then
      temp:=temp+s[i];
    if (s[i] in dividers) or (i=length(s)) then
    begin
      fl:=true;
      if temp<>'' then
      begin
        j:=1;
        repeat
          if temp=a[j] then
            fl:=false;
          inc(j)
        until
          (temp=a[j]) or (j>max);
      end;
      if fl then
      begin
        inc(max);
        a[max]:=temp
      end
      else
      begin
        Delete(s,i-length(temp),length(temp));
        i:=i-length(temp)
      end;
      temp:=''
    end;
    inc(i);

  end;
  close(f);
  writeln('otvet:=',s);
  READLN;
end.

строка:aab aaa aab abb bba abb bbb aaa bba abb.

[Анатоль]

Можешь условие сказать полностью