По введенному с клавиатуры дню и месяцу выдать название соответствующего сезона года

uses crt;
var d,m:integer;
Begin clrscr;
writeln('Vvedite Mesyac: ');readln(m);
writeln('Vvedite Den: ');readln(d);
case m of
10,11:writeln('Osen');
12:if d<3 then writeln('Osen') else writeln('Zima');
1,2:writeln('Zima');
3:if d<3 then writeln('Zima') else writeln('Vesna');
4,5:writeln('Vesna');
6:if d<3 then writeln('Vesna') else writeln('Leto');
7,8:writeln('Leto');
9:if d<3 then writeln('Leto') else writeln('Osen');
end;
readln
end.

procedure zadacha1;
var
 d,m:integer;
Label lb;
Begin
 clrscr;
 lb:
 writeln('Vvedite Mesyac');
 readln(m);
 writeln('Vvedite Den');
 readln(d);
 if (m>=13) or (d>=32) then
  begin
   writeln('oshibka');
   goto lb;
  end;
  case m of
   10,11:writeln('Osen');
   12:if d<3 then
    writeln('Osen')
    else writeln('Zima');
   1,2:writeln('Zima');
   3:if d<3 then
    writeln('Zima')
   else writeln('Vesna');
   4,5:writeln('Vesna');
   6:if d<3 then
    writeln('Vesna')
   else writeln('Leto');
   7,8:writeln('Leto');
   9:if d<3 then
    writeln('Leto')
   else writeln('Osen');
end;
readln
end;