Оставить в строке только первое вхождение каждого символа. Взаимный порядок оставленных символов сохранить - PascalABC.NET

Формулировка задачи:

Решил данную задачу так:

//Оставить в строке только первое вхождение каждого символа. Взаимный порядок оставленных символов сохранить
Procedure write_in_set(var str_IN, str_OUT : string);
Var
    i : integer;
    position : set of integer;
begin
    position := [];
    for i:=1 to length(str_IN) do //Цикл для перебора каждого символа
        if not (Pos(str_IN[i],str_IN) in position) then // Если символ новый, то записываем в строку
        begin   
            position := position + [Pos(str_IN[i],str_IN)]; // Записываем позицию во множество позиций
            str_OUT := str_OUT + Copy (str_IN, Pos(str_IN[i],str_IN), 1); // В итоговую строку копируем новый символ
    end;
end;
Var
    str_IN, str_OUT : string;
BEGIN
    str_OUT := '';
    write('Введите строку: ');
    readln(str_IN);
    write_in_set(str_IN, str_OUT);
    writeln(str_OUT); // Вывод строки состоящей из символов, входящих в исходную строку
    readln();
END.

Она работает и работает правильно, но хотелось бы обойтись только одной строкой, которую вводит пользователь. И удалить из неё лишние символы

встроеной функцией delete.

Как ни бился, так ничего и не получилось. То выход за границу цикла, то удаление всех символов из строки получалось...

Решение задачи: «Оставить в строке только первое вхождение каждого символа. Взаимный порядок оставленных символов сохранить»

Листинг программы

procedure read(var x: string);
begin
  if input.sr <> nil then
    read(input, x)
  else 
    try
      CurrentIOSystem.read(x)
    except
      on e: Exception do
        raise e;
    end;
end;

Объяснение кода листинга программы

Входные данные: строка x.
Проверяется, не пуст ли входной поток input.sr. Если он не пуст, то вызывается функция read(input, x), где input - это текущий вводной поток, а x - это строка, в которую считываются символы.
Если входной поток пуст, то вызывается метод read текущего вводного потока input, передавая в качестве аргумента строку x. Если вводной поток не может считать символ (например, достигнут конец файла), то вызывается исключение Exception.
В случае возникновения исключения Exception вызывается обработчик исключений, который перехватывает исключение и повторно вызывает его.