Построить семейство кругов заданного радиуса, центры которых равномерно смещены по вертикали — Pascal(Паскаль)

uses graph,crt;
var x,y,h,r:integer;
begin
clrscr;
repeat
write('Radius krygov [20-100] r=');
readln(r);
until r in [20..100];
repeat
write('Shag smecshenya [5-',r,'] h=');
readln(h);
until h in [5..r];
x:=0;
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY-r-10;
while y>r do
 begin
  circle(x,y,r);
  y:=y-h;
 end;
readln
end.