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

[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.

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

[volvo]

mapblwka, вот так не пробовала?

program week;
uses crt;
type
  weekday=(Mon, Tue, Wed, Thu, Fri, Sat, Sun);
const
  days: array[weekday] of string =
    ('Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat', 'Sun');

var
  wd:string;
  i: weekday;
  t: boolean;
  bud:set of weekday;
begin
  write('Введите день недели (сокращенно) '); readln(wd);
  bud:=[Mon, Tue, Wed, Thu, Fri];
  t := false;
  for i := mon to sun do
    if wd = days[i] then
      if i in bud then t := true;

  readkey;
end.

?