Пусть задано множество А, напечатать в алфавитном порядке все элементы этого множества, входящих в множество letters=[‘a’..’я’] — Pascal(Паскаль)

program _;
type bass=set of char;//запись из символов
var
letters,A,B:bass; j:char;
s:string; i:integer;
begin
letters:=['а'..'я'];
writeln('введиет элементы множества А');
readln(s);
for i:=1 to length(s) do
begin
include(A,s[i]);
end;
B:=A*letters;
for j:='а' to 'я' do
begin
if j in B then write(j,' ');
end;
end.