Используя множества получить строку, которая содержит множество символов входящей строки

type
  setChar = set of #0..#255;
 
var
  s, res: string;
 
procedure P(s: string; var res: string);
var
  temp: setChar;
  i: byte;
begin
  temp := [];res := '';
  for i := 1 to Length(s) do
    if not (s[i] in temp) then 
    begin
      Include(temp, s[i]);
      res := res + s[i];
    end;
end;
 
function F(s: string): string;
var
  temp: setChar;
  res: string;
  i: byte;
begin
  temp := [];res := '';
  for i := 1 to Length(s) do
    if not (s[i] in temp) then 
    begin
      Include(temp, s[i]);
      res := res + s[i];
    end;
  F := res;
end;
 
begin
  write('Строка: ');readln(s);
  P(s, res);
  writeln;
  writeln('Процедура');
  writeln('Строка из множества символов входной строки');
  writeln(res);
  res := F(s);
  writeln;
  writeln('Функция');
  writeln('Строка из множества символов входной строки');
  writeln(res);
  readln;
end.