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

Question

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.

Ангелина Кролевцова · Accepted Answer

перепиши условие первого цикла как: while (S< q) and (i<=n)