Программа. Индекс находился вне границ массива

var t:array[1..30] of integer;
    sr: real;
    i, s1, s2, k, so, k1: integer;
begin
  writeln ('Введите t в течении 30 дней');
  for i:= 1 to 30 do read (t[i]); 
  // a. Найти среднюю температуру за первые 3 дня.  
    sr:= (t[1] + t[2] + t [3]) / 3;
  writeln('a) Средняя t за 3 дня = ', sr);
  // b. Сравнить температуру в первый и последний день месяца.
  if t[1] > t[30] then writeln('b) В 1 день t больше, чем в последний')
                  else writeln('b) В последний день t больше, чем в 1');
  // c. Сравнить суммарную температуру в первую и последнюю декаду месяца.
  for i:= 1 to 10 do s1:= s1 + t[i];
  for i:= 21 to 30 do s2:= s2 + t[i];
  if s1 = s2 then writeln ('c) В 1 декаду и во 2 t одинаковая')
             else if s1 < s2 then writeln ('c) В 2 декаду больше t, чем в 1')
                             else writeln ('c) В 1 декаду больше t, чем вo 2');
  // d. Сколько раз за месяц температура была отрицательной?
  k:= 0;
  for i:= 1 to 30 do if t[i] < 0 then k:= k + 1;
  writeln ('d) t была отрицательна ', k, ' раз');
  // e. Были ли в течение месяца 2 дня подряд с температурой выше 30°?
  so:= 0;
  for i:= 1 to 30 do  
  begin
    if (t[i] > 30) and (t[i + 1] > 30) then so:= so + 1;
  end;
  if so > 0 then writeln ('e) Да')
            else writeln ('e) Нет');
  end;
end.

for i:= 1 to 29 do  
  begin
    if (t[i] > 30) and (t[i + 1] > 30) then so:= so + 1;
    if so > 0 then writeln ('e) Да')
              else writeln ('e) Нет');
  end;