Дан массив температур за год. Определить значение температуры для каждого сезона

Program SredneeZnachenie;
var T: array [1..12] of real;
 j: integer; S_W, S_P, S_Sp, S_A, S_S: real;
   begin
      for j:= 1 to 12 do
       begin
        readln (T[j])
       end;
        for j:= 1 to 12 do 
       begin 
        case S_Sp of 3,4,5:
        S_Sp: S_Sp; T[j]:
        case S_S  of 6,7,8:
        S_S: S_S; T[j]:
        case S_A  of 9,10,11:
        S_A: S_A; T[j]:
        case S_W  of 1,1,12:
        S_W: S_W; T[j]:
       end; 
          write ('среднее значение t весной=', S_Sp/3):
          write ('среднее значение t осенью=', S_A/3);
          write ('среднее значение t летом=', S_S/3):
          write ('среднее значение t зимой=', S_W/3);
          end;

var
  T: array [1..12] of real;
  j: integer; S_W, S_P, S_Sp, S_A, S_S: real;
 
begin
  for j := 1 to 12 do
  begin
    readln(T[j])
  end;
  for j := 1 to 12 do
    case j of
      1, 2, 12: S_W := S_W + T[j];
      3..5: S_SP := S_SP + T[j];
      6..8: S_S := S_S + T[j];
      9..11: S_A := S_A + T[j];
    end;
  writeln('среднее значение t весной=', S_Sp / 3);
  writeln('среднее значение t осенью=', S_A / 3);
  writeln('среднее значение t летом=', S_S / 3);
  writeln('среднее значение t зимой=', S_W / 3);
end.