Календарик. Пользователь вводит число и месяц (числами), а программа в ответ выводит: день недели, название месяца — Pascal(Паскаль)

uses CRT;
const
  days_names:array[0..6] of string = (
    'Пн','Вт','Ср','Чт','Пт','Сб','Вс'
  );
  month_names:array[1..12] of string = (
    'Январь',   'Февраль', 'Март',  'Апрель',
    'Май',      'Июнь',    'Июль',  'Август',
    'Сентябрь', 'Октябрь', 'Ноябрь','Декбрь'
  );
  month_size:array[1..12] of integer = (
    31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31
  );
 
var did, mid, i, days : integer;
 
begin
  ClrScr;
  ReadLn(did, mid);
  days:=0;
  for i:= 1 to mid-1 do days := days + month_size[i];
  days:= days + did - 5; { т.к. 2009 }
  did := days mod 7;
  WriteLn('В 2009 году это - '+days_names[did]+' '+month_names[mid]);
  ReadLn;
end.