составить прогу, которая выводит на экран все суммы членов последовательности, задаваемой формулой

a_n=n в квадрате/(n в квадрате +1) +1,не превосходящее некоторое число q,вводимое с клавиатуры, n-кол-во членов последовательности, тоже с клавиатуры. прога на языке паскаль
я написала, но она работает не правильно

Program Summa;
Var q,a,S,n:Real;
i:Integer;
Begin
Write('q=');Read(q);
Write('n=');Read(n);
S:=0;
i:=0;
While i<=n do
Begin
a:=Sqr(i)/(Sqr(i)+1)+1;
S:=S+a;
i:=i+1;
Begin
While S<=q do
Writeln('S=',S);
End;
End;
End.