Движение оркужности по спирали

program laba3_2;
uses graph,crt;
var
dr,md,x,y:integer;
 c:char;
 color:word;
 j:real;
procedure Spiral;
 var
 col,k,n,x,y,i:integer;
 j:real;
begin
n:=700;
k:=10;
randomize;
 for i:=4100 downto 2150 do
 begin
    col:=yellow;
    begin
    j:=i/n;
    x:=round(exp(j)*cos(k*j));
    y:=round(exp(j)*sin(k*j));
    putpixel(300+x,250+y,col);
    end;
    end;
end;
procedure DrowCircle(color:word;x,y:integer);
begin
SetFillStyle(1,color);
FillEllipse(x,y,10,10);
end;
 
procedure MoveCircle(w:integer);
{ здесь переменная w служит для определения к центру/от центра}
var
xx,yy,x2,y2,dx,dy:integer;
begin
x2:=getMaxX div 2;
y2:=getMaxY div 2;
xx:=GetX;
yy:=GetY;
 
 if ((xx=x2) and (yy=y2)) then begin dx:=11; dy:=11; end
 else
  begin
  if xx=x2 then
     begin
       if yy<y2 then dx:=11;
       if yy>y2 then dx:=-11;
       dy:=0;
     end;
  if yy=y2 then
  begin
     if xx<x2 then dy:=-11;
     if xx>x2 then dy:=11;
     dx:=0;
  end;
  end;
  if  xx>x2 then
  begin
      if yy<y2 then
         begin
         dx:=11; dy:=11;
         end;
      if yy>y2 then
         begin
         dx:=-11; dy:=11;
         end;
  end;
  if  xx<x2 then
  begin
      if yy<y2 then
         begin
         dx:=11; dy:=-11;
         end;
      if yy>y2 then
         begin
         dx:=-11; dy:=-11;
         end;
  end;
 if w=1 then begin dx:=dx*(-1)-5;dy:=dy*(-1)-5; end;
 
 DrowCircle(black,xx,yy);
 Spiral;
 DrowCircle(red,xx+dx,yy+dy);
 MoveTo(xx+dx,yy+dy);
end;
begin
dr:=detect;
initgraph(dr,md,'z:\');
  Spiral;
     outTextXY(2,2,'nazmite 1: k centru');
     outTextXY(2,10,'nazmite 2: ot centra');
     outTextXY(2,18,'nazmite ESC: vihod');
  j:=4100/700;
  DrowCircle(red,(getMaxX div 2),(getMaxY div 2));
  MoveTo((getMaxX div 2),(getMaxY div 2));
 repeat
  c:=readKey;
  if c='1' then
      MoveCircle(1)
     else
       if c='2' then
         MoveCircle(2);
 
 until c=#27;
closegraph;
end.