Дана строка символов. Преобразовать ее, удалив из нее повторные вхождения каждой литеры — Pascal(Паскаль)

var
  s: string;
  i: integer;

begin
  WriteLn('Введите строку: ');
  Readln(s);
  i := 1;
  while i < Length(s) do
  begin
    while Pos(s[i], Copy(s, i + 1, 255)) > 0 do
      delete(s, Pos(s[i], Copy(s, i + 1, 255)) + i, 1);
    inc(i);
  end;
  WriteLn(s)

end.