Viết ct nhập vào 1 xâu nhập kí tự bất kì .xóa các kí tự trùng với kí tự vừa nhập trong xâu

program xoa_trung;
uses crt;
var s:string;
    i:byte;
    c:char;
begin
        clrscr;
        write(‘Nhap xau: ‘);    readln(s);
        i:=1;
        while i<=length(s) do
                begin
                        c:=s[i];
                        s[i]:=chr(1);
                        while pos(c,s)<>0 do delete(s,pos(c,s),1);
                        s[i]:=c;
                        i:=i+1;
                end;
        write(s);
        readln;
end.