Дана последовательность символов. Получить те символы, принадлежащие последовательности, которые входят в нее по одному разу

program sortirovka;
uses crt;
var
s,r:string;
l,j:integer;
odin:boolean;
begin
 
s:='блаблаблаоп";
 
r:='';
FOR l:=1 TO length(s) do
Begin
odin:=true;
for j:=1 to length(s) do if (s[l] =s[j]) and (l<>j) then odin:=false;
if odin then r:=r+s[l] +' ';
 
write (r);
 
readln;
end.

Program   Name;
uses      crt;
var
         i,j,st,k : integer;
         s        : string;
BEGIN
    ClrScr;textcolor(7);
    WriteLn('Введите последовательность символов:');
    textcolor(15);readln(s);textcolor(7);
    WriteLn('Символы, которые не повторяются во входной строке:');
    k:=0;textcolor(15);
    for i:=1 to length(s)-1 do
     begin
      st:=0;
      if s[i] <> #0 then
       begin
        for j:=i+1 to length(s) do
         begin
           if s[i] = s[j] then
            begin
              st:=1;s[j]:=#0;
            end;
         end;
        if st=0 then begin inc(k);write(s[i]);end;
       end;
     end;
    if s[length(s)] <> #0 then begin write(s[length(s)]);inc(k);end;
    if k=0 then write('Отсутствуют.');
    repeat until keypressed;
END.