Определить день недели по указанной дате 2022 года (оператор case)

var
  d, m, f: integer;
begin
  write('Введите день и номер месяца 2022 года через пробел: ');
  readln(d, m);
  case m of
    8:        f := 0;
    2, 3, 11: f := 1;
    6:        f := 2;
    9, 12:    f := 3;
    4, 7:     f := 4;
    1, 10:    f := 5;
    5:        f := 6
  end;
  case (d + f) mod 7 of
    0: writeln('Воскресенье');
    1: writeln('Понедельник');
    2: writeln('Вторник');
    3: writeln('Среда');
    4: writeln('Четверг');
    5: writeln('Пятница');
    6: writeln('Суббота')
  end
end.

const
  dow: array [0..6] of String[11] = (
    'Воскресенье', 'Понедельник', 'Вторник',
    'Среда', 'Четверг', 'Пятница', 'Суббота');
var
  d, m, f: Integer;
begin
  Write('Введите день и номер месяца 2022 года через пробел: ');
  ReadLn(d, m);
  case m of
    8:        f := 0;
    2, 3, 11: f := 1;
    6:        f := 2;
    9, 12:    f := 3;
    4, 7:     f := 4;
    1, 10:    f := 5;
    5:        f := 6;
  end;
  WriteLn(dow[(d+f) mod 7]);
end.

const
  dow: array [0..6] of String[11] = (
    'Воскресенье', 'Понедельник', 'Вторник',
    'Среда', 'Четверг', 'Пятница', 'Суббота');
  shf: array [1..12] of Integer = (
    5, 1, 1, 4, 6, 2, 4, 0, 3, 5, 1, 3);
var
  d, m: Integer;
begin
  Write('Введите день и номер месяца 2022 года через пробел: ');
  ReadLn(d, m); WriteLn(dow[(d+shf[m]) mod 7]);
end.