Найти уникальные символы в строке

Задача. Ввести строку символов. Количество символов в строке (n<40). Вывести встречающиеся в ней символы без повторов и количество этих символов. Решение. Решение задачи сводится к следующему. Каждый символ строки сравнивается со всеми остальными, находящимися после него. Если данный элемент имеет номер i, то следующий – i+1 и т.д., до конца. При этом i изменяется от 1 до n-1. Если в результате сравнения окажется, что анализируемый символ встречается в правой части строки, то он не уникальный. Пока его можно не выводить, он будет выведен потом. Если i-тый элемент не равен ни одному из последующих, то он уникальный и его нужно вывести. Например для строки 'АВВСА' уникальные символы будут выведены в следующем порядке: ВСА

Program Unicum;
var
s : string;
n, i, j, k, kols : integer;
begin
writeln('Введите строку'); 
readln(s);
n:=length(s); 
kols:=0; 
writeln('Символы строки без повторов ');
for i:=1 to n-1 do 
begin
k:=0; 
for j:=i+1 to n do 
if s[i]=s[j] then
k:=k+1;
if k=0 then 
 begin
 kols:=kols+1;
 write(s[i]:2);
 end;
end;
writeln('Количество различных символов в строке - ',kols);
writeln('Работа окончена. Нажмите клавишу ENTER');
readln;
end.