Удалить из строки все повторные вхождения символов

var s:string;
    i:integer;
begin
writeln('Введите строку с повтояющимися символами');
readln(s);
for i:=length(s) downto 2 do
if pos(s[i],s)<i then delete(s,i,1);
write(s)
end.

begin
  var FICSOF: set of char;
  var IStr:= ReadString('Введите строку: ');
  var OStr: string;
  foreach var a in IStr do
    begin
      if not(a in FICSOF)
        then
          OStr += a;
      FICSOF += [a];
    end;
  OStr.Println('; ');
end.

program test;
 
var
  s: string;
  i: integer;
  UsedChars: set of char;
begin
  s := 'Удалить из строки все повторные вхождения символов';
  UsedChars := [];
  i := 1;
  while i <= length(s) do
  begin
    if s[i] in UsedChars then
    begin
      Delete(s, i, 1);
    end
    else
    begin
      Include(UsedChars, s[i]);
      Inc(i);
    end;
  end;
  writeln(s);
end.

begin
  var Otv: set of char;
  foreach var a in ReadString('Введите строку: ') do
    Otv += [a];
  Writeln(Otv);
end.

begin
  var IStr:= ReadString('Введите строку: ').Distinct.Println('; ');
end.