Проблема с программой. Нельзя преобразовать тип set of char к char

[Lasso]

В общем проблема такая при запуске программы: var
Type
Letters = Set Of 'a'..'z';
var
mn: set of char;
B : Letters;
s: string;
i,k,q:integer;
Begin
b:=['a','b','c','d','e','f','g','h','i' ,'g','k','l','m','n','o','p','q','r ','s','t','u','v','w','x','y','z'];
readln(s);
q:=0;
mn:=[ ];
begin
for k:=1 to length(s) do
begin
if s[k] in b then inc(q);
begin if q>=2 then
include(mn, s[k]); end;
end;
end;
if (b in mn) then write (b, ' ');
end.
Выводит ошибку (Нельзя преобразовать тип set of char к char)
Условия :Дан текст из строчных латинских букв, за которым следует точка. Напечатать все
буквы, входящие в текст не менее двух раз.
Паскаль ABC

[Mandrivnyk]

if (b in mn) then write (b, ' ');

Тут ошибка, по всей видимости.
Насколько я понимаю, тебе надо просто найти пересечение двух множеств.
Если не ошибаюсь, просто b * mn

[was3110]

могу помочь... ошибка не одна, а несколько. Пишите на e-mail (найдете в профиле)

[bumer7721]

Letters = Set Of 'a'..'z';

не так надо, а так

Letters = ['a'..'z'];

потому что константа

[bumer7721]

прости не доглидел

Type
Letters = Set Of 'a'..'z';
var
mn: set of char;
B : Letters;
s: string;
i,k,q:integer;
Begin
b:=['a','b','c','d','e','f','g','h','i' ,'g','k','l','m','n','o','p','q','r ','s','t','u','v','w','x','y','z'];

исправляю

var
mn: set of char;
B : Letters;
s: set of char;
i,k,q:integer;
Begin
b:=['a'..'z'];

[Lasso]

Я вам очень благодарен успел исправить код.
Спасибо