Вывести на экран все русские согласные буквы строки в алфавитном порядке. - Pascal ABC

type
T_buk = set of char;
var
a,b:T_buk;
s:string;
i,k:integer;
begin
writeln('Введите строку');
readln(s);
b:=[];
a:=['б', 'в', 'г', 'д', 'ж', 'з', 'й', 'к', 'л', 'м', 'н', 'п', 'р', 'с', 'т', 'ф', 'х', 'ц', 'ч', 'ш', 'щ'];
for i:=1 to length(s) do
    if s[i] in a then
        begin
        include(b,s[i]);
        end;
for i:=1 to 255 do
    if chr(i) in b then
        write(chr(i):2);
end.