День недели, на который выпадает "несчастливое" число 13

var
  y, m: integer;
  A: array[1..12] of integer := (6,2,2,5,0,3,5,1,4,6,2,4);
  B: array[0..27] of integer := (6,0,1,2,4,5,6,0,2,3,4,5,0,1,2,3,5,6,0,1,3,4,5,6,1,2,3,4);
 
begin
  write('Введите год: ');
  readln(y);
  write('Введите месяц (числом): ');
  readln(m);
  write('13.', m, '.', y, ' - ');
  case (B[y mod 28] + A[m] + 13) mod 7 of
    0: write('воскресенье');
    1: write('понедельник');
    2: write('вторник');
    3: write('среда');
    4: write('четверг');
    5: write('пятница');
    6: write('суббота');
  end;
end.

type data=record
          y,m:integer;
          end;
var
  d: data;
  A: array[1..12] of integer := (6,2,2,5,0,3,5,1,4,6,2,4);
  B: array[0..27] of integer := (6,0,1,2,4,5,6,0,2,3,4,5,0,1,2,3,5,6,0,1,3,4,5,6,1,2,3,4);
 
begin
  repeat
  write('Введите год от 2001 до 2400: ');
  readln(d.y);
  until (d.y>2000)and(d.y<2401);
  repeat
  write('Введите месяц (числом от 1 до 12): ');
  readln(d.m);
  until d.m in [1..12];
  write('13.', d.m, '.', d.y, ' - ');
  case (B[d.y mod 28] + A[d.m] + 13) mod 7 of
    0: writeln('воскресенье');
    1: writeln('понедельник');
    2: writeln('вторник');
    3: writeln('среда');
    4: writeln('четверг');
    5: writeln('пятница');
    6: writeln('суббота');
  end;
end.