Строки, Помогите найти ошибку:) Опции

[Гость]

Задача: вывести строку без повторяющихся символов

[Farru]

То есть,
"vvolvoo" -> "volvo"
или последние "vo" тоже уже не должны повторяться, и должно быть "vol"?

как мне только что объяснили, "vvolvoo"->"l"

[Malice]

как мне только что объяснили, "vvolvoo"->"l"

Тогда примерно вот так должно работать:

for i:=1 to length (s) do
   if  (pos (s[i],copy (s,1,i-1))=0) and
       (pos (s[i],copy (s,i+1,255))=0) then    write (s[i]);