Напечатать в алфавитном порядке все буквы входящие не менее двух раз

program a1;
var
alfavit,a,b,c:set of char;
i,j:integer;
s,x:string;
begin
alfavit:=['а'..'я'];
writeln ('введите текст из русских строчных букв '); readln(s);
 
for i:=1 to length(s) do
if (s[i] in alfavit) then a:=a+[s[i]];
b:=alfavit-a;
b:=alfavit-b;
c:=a-b;
b:=b-c;
 
for i:=1 to length(s) do
for j:=length(s) downto 2 do
if ord(s[j])<ord(s[j-1]) then begin
x[j]:=s[j];
s[j]:=s[j-1];
s[j-1]:=x[j];
end;
 
writeln ('буквы, встречающиеся по 1 разу');
for i:=1 to length(s) do
if s[i] in b then write (s[i],' ');
writeln;
 
writeln ('буквы, встречающиеся не менее 2 раз');
for i:=1 to length(s) do
if s[i] in c then write (s[i],' ');
writeln;
end.

{ дана строка из строчных русских букв за которым следует точка. 
напечатать в алфавитном порядке все буквы входящие не менее двух раз; 
все буквы входящие 1 раз. }
 
 program a1;
 var
   a, b, c : set of char;
   i : integer;
   s : string;
   ch : char;
 begin
   a:= [];
   b:= [];
   c:= [];
   
   writeln ('Введите текст из русских строчных букв. Текст завершается точкой ');
   readln(s);
   
   i:= 1;
   while (s[i]<>'.') do
     begin
       ch := s[i];
       if ch in a then
         b:= b+[ch]
       else
         a:= a+[ch];
       inc(i);
     end;
       
   for ch:='a' to 'я' do
     if ch in b then
       write(ch,',');
   writeln;
   
   c:= a-b;
   for ch:='a' to 'я' do
     if ch in c then
       write(ch,',');
   writeln;
end.