ЗАДАНИЕ С ТЕКСТОМ

[KulOle]

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

[Min]

var s,sp:string;
c:char;
begin
readln(s);
while length(s)>0 do
begin
c:=s[1];
delete(s,1,1);
if pos(c,s)=0 then sp:=sp+c
else
while pos(c,s)>0 do
delete(s,pos(c,s),1);
end;
writeln(sp);
readln;
end.

[Serge_Bliznykov]

ну, тогда я бы так предложил, обойтись без удалений,
да и вообще проще:

var s,sp:string;
  i : integer;
begin
  readln(s);
  sp := '';
  for i:=1 to length(s) do
    if Pos(s[i],sp)=0 then sp:=sp+s[i];
  writeln(sp);
  readln;
end.