Графика. Нарисовать окружность,которая может двигаться и менять цвет

uses graph,crt;
{рисование окружности в заданном месте заданным цветом}
procedure Okr(x,y,r,c:integer);
begin
Setcolor(c);
Circle(x,y,r);
end;
 
var x,y,x1,y1,r,c:integer;
    k,k1:char;
    move:boolean;
begin
randomize;
Initgraph(x,y,'');
OutTextXY(200,20,'Uprawlenye strelkami,  Vyhod-Esc');
OutTextXY(200,40,'         Press Enter...');
readln;
r:=25;
x:=getmaxX div 2;
y:=getmaxY div 2;
c:=12;
Okr(x,y,r,c);
move:=true;
repeat{повторяем пока не нажата клавиша Esc}
if keypressed then{если нажата клавиша}
  begin
    k1:=readkey;{читаем первый код}
    if k1=#0 then k:readkey;{если он=0, то служебная клавиша, читаем второй код}
    if k=#80 then {стрелка вниз}
      begin
        c:=14;{номер цвета, это желтый}
        y1:=y;{запомним старые координаты}
        x1:=x;
        y:=y+5;{на 5 пикселей вниз}
        move:=true;{фиксируем переход}
        if y>getmaxY-r then y:=y1;{низ экрана, стоп}
      end;
    if k=#72 then{так же вверх}
      begin
        c:=9;
        y1:=y;
        x1:=x;
        y:=y-5;
        move:=true;
        if y<50+r then y:=y1;{доходим до текста, стоп}
      end;
    if k=#77 then{также вправо}
      begin
        c:=7;
        y1:=y;
        x1:=x;
        x:=x+5;
        move:=true;
        if x>getmaxX-r then x:=x1;
      end;
    if k=#75 then{также влево}
      begin
        c:=2;
        y1:=y;
        x1:=x;
        x:=x-5;
        move:=true;
       if x<r then x:=x1;
      end;
  end;
if move then
  begin
   Okr(x1,y1,r,0);{стираем изображение}
   Okr(x,y,r,c);{рисуем в новом месте}
   move:=false;{переключаем флаг}
  end;
until k=#27 {Esc-конец программы}
end.