Вычислить сумму 1+2+3... Складывать до тех пор, пока сумма не станет больше 10000. Оператор While

Program z2;
Var s,i:integer;
Begin
s:=0;
i:=;
while s<=10000 do
begin
s:=s+i;
i:=i+1;
end;
writeln('Сумма =',s);
end.
где здесь ошибка? сумма больше 10000 выходит

О_О засиделась я что-то..