Нужна прога по множествам. Паскаль 10 класс дзшка. Прошу помощи)

Program z1; var s: string; n,i,j,k:integer; begin read(s); for i:=length(s) downto 1 do if s= then k:=i; for i:=1 to k do degin n:=1; for j:=(k+1) to length(s) do if s=s[j] then n:=o; if n=1 then write(s); end; end. если нигде не напутал, то вот так должно работать.