Ошибка времени выполнения: Индекс находился вне границ массива - PascalABC.NET (25585)

program z_5;
 
var
  s: array[-10..5] of integer;
  i, a, b, c: integer;
 
begin
  a := 0;
  b := 0;
  c := 0;
  for i := 1 to 10 do
  begin
    s[i] := random(15) - 10; // <----
    writeln(s[i]);
  end;
  for i := 2 to 9 do
    if s[i] > (s[i - 1] + s[i + 1]) then a := a + 1;
  if s[1] > s[2] then b := 1;
  if s[10] > s[9] then c := 1;
  writeln('-------------');
  write(a + b + c);
end.