Вывести значения дней недели заданного месяца

program days_of_week_of_month;
var y,m,d,i : integer;
    msize:array[1..12] of byte = (31,28,31,30,31,30,31,31,30,31,30,31);
begin
  repeat
    writeln('Введите год не раньше 1991');
    readln(y);
    writeln;
  until y > 1990;
 
  repeat
    writeln('введите месяц 1-12');
    readln(m);
    writeln;
  until m in [1..12];
 
  y := y - 1991;
  d:= 1 + y + (y+3)div 4;
 
  {Если год високосный}
  if (y mod 4) = 1 then
    msize[2]:= 29;
 
  for i:= [1..12] do
    writeln(msize[i]);
    
  for i:=1 to m-1 do
    d:=d+msize[i];
 
  if (d mod 7) > 0 then
    for i:=1 to (d mod 7) do
      write('  ');
 
  for i:=d to d-1+msize[m] do
    case i mod 7 of
      0: write('Пн ');
      1: write('Вт ');
      2: write('Ср ');
      3: write('Чт ');
      4: write('Пт ');
      5: write('Сб ');
      6: writeln('Вс');
    end;
  readln;
end.