program prvi (input,output);
type niz=array[1..255] of char;
var a:niz;
    n:integer;

procedure Unos(var a:niz;var n:integer);
    var znak:char;
        i:integer;
    begin
        writeln(output,'unesi duzinu niza');
        readln(input,n);
        writeln(output,'unesi niz');
        for i:=1 to n do read(a[i]);
    end;
Procedure Obrada(var b:niz;var n:integer);
        var a:string;
           skup:set of char;
        i:integer;
    begin
      skup:=[];
        a:='';
        i:=1;
        while i<=n do
            begin
            if   not (b[i]in skup) then
                begin
                    a:=a+b[i];
                    skup:=skup+[b[i]];
                end;
            i:=i+1;
        end;
        n:=length(a);
        for i:=1 to n do b[i]:=a[i];
    end;

Procedure Ispis(var a:niz; n:integer);
var i:integer;
begin
for i:=1 to n do write(output,a[i]);
writeln(output);
end;

begin
    Unos(a,n);
    while n>0 do
        begin
            Obrada(a,n);
            Ispis(a,n);
            Unos(a,n);
        end;
end.