Ввести номер месяца и номер дня, вывести число дней, оставшихся до 1 мая

Var
  d,m,s,i: Integer;
BEGIN
Repeat
  Write('Введите номер месяца (1-12): ');
  Readln(m);
until m in [1..12];
Case m of
  1,3,5,7,8,10,12: Repeat
                    Write('Введите день (1-31): ');
                    Readln(d);
                   until d in [1..31];
  4,6,9,11:        Repeat
                    Write('Введите день (1-30): ');
                    Readln(d);
                   until d in [1..30];
  2:               Repeat
                    Write('Введите день (1-28): ');
                    Readln(d);
                   until d in [1..28];
end;
If (m=5) and (d=1) Then
Writeln('Сегодня 1 мая')
Else
begin
  If m>=5 Then
  begin
    For i:=m+1 to 16 do
    If not (i in [7,8,10,12,13,14,15]) Then s:=s+30
    Else If i=14 Then s:=s+28
    Else s:=s+31;
  end;
  If m<5 Then
  begin
    For i:=m+1 to 4 do
    If i=4 Then s:=s+30
    Else If i=2 Then s:=s+28
    Else s:=s+31;
  end;
  If m in [1,3,5,7,8,10,12] Then Inc(s,31-d);
  If m in [4,6,9,11] Then Inc(s,30-d);
  If m=2 Then Inc(s,28-d);
  Writeln('Осталось дней до 1 мая: ',s);
end;
END.