Нужно вычислить число пи через цикл While по ряду Эйлера

Подскажите в чем ошибка?срочно,плиз.

VAR n,i,s,p:real;

begin

n:=1000;

s:=0;

I:=0;

while I<=n do

begin

i:=I+1;

S:=1+s/sqr(i);

end;

p:=sqrt(6*S);

writeln(p:12:10);

end.

const

 n = 1000;

var

 i: Integer;

 s: Real;

begin

s := 1;

   i := 2;

   while i <= n do begin

     s := s + 1 / (i * i);

     i := i + 1;

   end;

   Writeln ('Pi ^ 2 / 6 = ' + FloatToStr (s));

end;

Ряд Эйлера: 1 + 1 / 2^2 + 1 / 3^2 + ... = Pi ^ 2 / 6

Результат работы программы: 1.64... не очень точно, но можно увеличить n