Задача на множества, Вывод дня недели рабочий или выходной Опции

[mapblwka]

Сколько времени убила на решение этой задачи, сколько народа замучала, чтобы помогли... Результатов нет. Не одного разумного решения задачи с поставленными условиями.

Задача:
Дано: type деньнедели=(пн,вт,ср,чт,пт,сб,вс);
Var wd:деньнедели; t: boolean;
Требуется переменной t присвоить значение true,если wd-рабочий день, и значение false иначе. Для вычисления написать функцию типа Boolean.

program week;
uses crt;
type
weekday=(Mon, Tue, Wed, Thu, Fri, Sat, Sun);

var wd:string;
    t:boolean;
    n:integer;
    bud:set of weekday;
begin
writeln('Введите день недели (сокращенно)');
readln(wd);
bud:=[Mon, Tue, Wed, Thu, Fri];
if wd in bud then writeln ('Ok');





readkey;
end.

как не пытались... не работает и все тут... разные вариации пробовали не работает. что делать?