Не могу разобраться в чем ошибка

Program P443;
var 
  inmonth:array[1..24] of string[8]=('январь','февраль','март','апрель','май','июнь','июль','август','сентябрь','октябрь',
                                    'ноябрь','декабрь','1','2','3','4','5','6','7','8','9','10','11','12');
  month,day,date,vday,vdate,check:integer;
  sdate,svdate,sel:string;
begin
  writeln('Программа определения количества дней до конца года');
  writeln('Введите число');
  readln(day);
  writeln('Ведите номер или название месяца');
  write('Номер или название месяца: ');
  readln(inmonth);
  month:=1;
while(month<=24)and(sel<>inmonth[month]) do inc(month);
case month of
  13: month:=1;
  14: month:=2;
  15: month:=3;
  16: month:=4;
  17: month:=5;
  18: month:=6;
  19: month:=7;
  20: month:=8;
  21: month:=9;
  22: month:=10;
  23: month:=11;
  24: month:=12;
end;
  if not(month in [1..12])or((month=2)and not(day in [1..29]))
  or((month in [4,6,9,11])and not(day in [1..30]))
  or((month in [1,3,5,7,8,10,12])and not(day in [1..31]))
  then
begin 
    writeln('Неверная дата');
  exit;
end;
  check:=day;
case month of
  1: vday:=day;    //Январь
  2:               //Февраль
  begin
    day:=day+31;
    vday:=day;
  end;
  3: day:=day+59;  //Март   
  4: day:=day+90;  //Апрель 
  5: day:=day+120; //Май
  6: day:=day+151; //Июнь
  7: day:=day+181; //Июль
  8: day:=day+212; //Август
  9: day:=day+243; //Сентябрь
  10: day:=day+273; //Октябрь
  11: day:=day+304; //Ноябрь
  12: day:=day+334; //Декабрь
end;
  if (month>2) then vday:=day+1;
  date:=365-day;
  vdate:=366-vday;
case date mod 100 of
    11..19:sdate:=date+' дней'
  else
case date mod 10 of
    2..4:sdate:=date+' дня';
    5..9,0:sdate:=date+' дней';
  else sdate:=date+' день';
end;
end;
case vdate mod 100 of
    11..19:svdate:=vdate+' дней'
  else
case vdate mod 10 of
    2..4:svdate:=vdate+' дня';
    5..9,0:svdate:=vdate+' дней';
  else svdate:=vdate+' день';
end;
end;
  if (month=2) and (check=29) or (sdate=svdate) then
    writeln('До конца года осталось ',svdate)
  else
    writeln('До конца года осталось ',sdate,'      Если год високосный - ',svdate)
end.

  if month>12 then Dec(month,12);

const sDay: array [0..2] of String[5] = ('день','дня','дней');
function pl(n: Integer): Integer;
begin
  pl:=2; n:=Abs(n mod 100);
  if not (n in [11..19]) then
    case n mod 10 of 1: pl:=0; 2..4: pl:=1; end;
end;
function dm(n: Integer): Integer;
begin
  dm:=31; case n of 2: dm:=28; 4,6,9,11: dm:=30; end;
end;
 
  for j:=12 downto month+1 do Inc(d,dm(j));
  Inc(d,dm(month)-day);
  if (month=2) and (day=29) then Inc(d);
  WriteLn('До конца года ',d,' ',sDay[pl(d)]);
  if (month=1) or (month=2) and (day<29) then
    WriteLn('високосного: ',d+1,sDay[pl(d+1)]);