Построить группу окружностей Опции

[Sensitive]

Задача:
Построить группу окружностей с постоянно убывающим радиусом, центры которых равномерно смещаются по оси Y.
Вот всё на что меня хватило((

uses Graph;
var x,y:array[1..100] of integer;
    r:array[1..100] of word;
    i,n:byte;
begin
writeln('Vvedite kol-vo kil');
readln(n);
writeln('Vvedite radius 1-go kola');
readln(r[1]);
writeln('Vvedite koordinati tsentra 1-go kola');
readln(x[1],y[1]);
init; {процедура инициализации граф. режима}
for i:=2 to n do begin
x[i]:=x[1];
y[i]:=y[i-1]-30;
r[i]:=r[i-1]-5;
end;
for i:=1 to n do
circle(x[i],y[i],r[i]);
readln;
end.

Подскажите плиз, как такое реализовать, чтобы не вводить кол-во кругов... не могу понять что тогда нужно вместо n ставить в цикле...