Из заданного предложения выбрать символы, которые встречаются в нем только один раз

Uses
 CRT;
Var
 i,j:integer;
 s:string;
 t:boolean;
begin
clrscr;
readln(s);
for i:=1 to length(s) do
begin
t:=true;
 for j:=1 to length(s) do
  if (s[j]=s[i]) and (i<>j)  then
  t:=false;
   if t then
    write(s[i]:3);
end;
readln
end.

var
  i, j: integer;
  s: string;
  found: boolean;
begin
  readln(s);
  for i := 1 to length(s) do
    begin
      for j := 1 to length(s) do
        begin
          found := (s[i] = s[j]) and (i <> j);
          if found then break
        end;
      if not found then
        write(s[i]:3)
    end;
  readln
end.

var
  i, j, k: Integer;
  s: String;
begin
  ReadLn(s);
  for i:=1 to Length(s) do begin
    j:=Length(s); k:=0;
    while (j>0) and (k<2) do begin
      Inc(k,Ord((s[i]=s[j]) and (i<>j))); Dec(j);
    end;
    if k=1 then Write(s[i]:2);
  end;
end.

var
  n: array [Char] of Integer;
  i: Integer;
  s: String;
begin
  ReadLn(s);
  for i:=1 to Length(s) do Inc(n[s[i]]);
  for i:=1 to Length(s) do
    if n[s[i]]=1 then begin
      Write(s[i]:2); n[s[i]]:=0;
    end;
end.