Определить времена года между двумя введенными датами

var s,x,date_1,date_2:integer;
begin
  Write('Enter day [first] = ');readln(date_1);
  Write('Enter month [first] = ');readln(date_1);
  Write('Enter day [second] = ');readln(date_2);
  Write('Enter month [first] = ');readln(date_2);
  if (date_1=date_2) then
    begin
     Write('Enter date_1 = date_2');readln;exit;
    end
  else
    begin
      if (date_1>date_2) then
        begin
         x:=date_1;
         Date_1:=date_2;
         date_2:=x;
        end;
    end;
  case (date_1) of
  3,4,5:x:=2;
  6,7,8:x:=3;
  9,10,11:x:=4;
  12,1,2:x:=1;
  end;
  While (date_1<=date_2) do
    begin
     case (x) of
      1:begin Write('Winter ');inc(x);end;
      2:begin Write('Spring ');inc(x);end;
      3:begin Write('Summer ');inc(x);end;
      4:begin Write('Fall ');x:=1;end;
     end;
     date_1:=date_1+3;
    end;
  readln;
end.