строки

[Y4ilka.net]

доброго времени суток=)
У меня возникло затруднение при решении задачи. не могу найти логическую ошибку в решении.
Условие задачи: из заданной строки выписать,символы которые встречаются в ней только раз, в том порядке в котором они втречаются в тексте.


program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var s1,s2,s:string;
j,i:integer;
begin
write('vvedite stroky:');
readln(s);
s2:=copy(s,1,length(s));
for i:=1 to length(s) do
for j:=1 to length(s2) do
if s[i]<>s[j] then
begin
s1:=copy(s,i,1);{полагаю что ошибка здесь}
write(s1);
delete(s,i,1);
end;


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

[alex_fcsm]

uses crt;

var st:string;
    s,s1:set of char;
    i:integer;
    
begin
clrscr;
readln(st);
s:=[];s1:=[];
for i:=1 to length(st) do
 if not (st[i] in s) then s:=s+[st[i]]
    else if not (st[i] in s1) then s1:=s1+[st[i]];
s:=s-s1;
writeln;
for i:=1 to length(st) do
 if st[i] in s then write(st[i],' ');
end.

[Y4ilka.net]

большое спасибо=)