Помогите найти ошибку в программе

[KnDmPetr]

Условие: Дано число 0<R<1. Построить последовательность N окружностей так, чтобы: 1) Диаметр первой расположенной по центру экрана окружности составлял R от вертикальной длины экрана. 2) Диаметр каждой последующей окружности составлял 0<W<1 от диаметра предыдущей окружности. 3) Каждая последующая окружность должна внутренне касаться предыдущей окружности в случайной точке и иметь случайный цвет.
Программу написал, но есть глюк, который я не могу вычислить, помогите. При r=0.9, w=0.9, n=30 происходит смещение окружности. Помогите исправить ошибку!!!
Привожу код программы:

program mnogograf;
uses crt,graph;
var
grDriver:integer; grMode:integer;
ErrCode:integer; radius,centrX,centrY,x0,y0,n,i,k:in teger;
r,w:real;
Begin
clrscr; randomize;
write ('Enter 0<r<1 : '); readln (r);
if (r<0) or (r>1) then
begin
writeln ('Invalid value, press eny key'); readkey; exit;
end;
write ('Enter 0<w<1 : '); readln (w);
if (w<0) or (w>1) then
begin
writeln ('Invalid value, press eny key'); readkey; exit;
end;
write ('Enter n>1 : '); readln (n);
if (n<1) then
begin
writeln ('Invalid value, press eny key'); readkey; exit;
end;
begin
grDriver := Detect;
InitGraph(grDriver, grMode,'');
ErrCode := GraphResult;
if ErrCode = grOk then
begin { Do graphics }
setcolor(random(15));
centrX:=getmaxx div 2; centrY:=getmaxy div 2;
radius:=round((r*getmaxy)/2);
circle(centrX,centrY,radius);
for i:=1 to n-1 do
begin
readln; setcolor(random(15));
k:=random(360);
x0:=centrX+(round((radius)*sin(k))-round((radius*w)*sin(k)));
y0:=centrY+(round((radius)*cos(k))-round((radius*w)*cos(k)));
circle(x0,y0,round(radius*w));
radius:=round(radius*w);
centrX:=x0; centrY:=y0;
end;
Readln;
CloseGraph;
end
else
Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end;
End.

[Serge_Bliznykov]

а у меня вроде всё нормально... что смещается?

ну, есть одно подозрение, попробуйте вместо Readln;
написать код:

      key:=readkey;
      if key=#0 then key:=readkey;

где key:char;

кстати не забывайте, пожалуйста, при публикации кода на форуме использовать обрамляющие тэги (CODE /CODE)

[KnDmPetr]

Рисуются окружности одна в другой, но иногда окружности (когда радиус уже не очень большой) вдруг начинают постепенно смещаться вниз за рамки экрана минуя все формулы по которым они строятся.

[puporev]

При том коде, который приведен изначально, действительно на 26-м пункте начинаются смещения. Просто заменил в строчке
readln; setcolor(random(15));
readln; на readkey и все нормально заработало, почему не знаю.
Кстати если и readln; и readkey убрать, то программа все сразу сама выдает.

[KnDmPetr]

То что если и readln; и readkey убрать, то программа все сразу сама выдает это я знаю, я специально их поставил чтобы посмотреть как все получается в режиме отладки

[KnDmPetr]

Все заработало, спасибо за советы. Действительно, если заменить readln на readkey все нормально работает. Хотя почему не хочет с readln нормально работать до сих пор непонятно. Всем спасибо за помощь!!!