Составьте программу в Pascal,чтобы двигалась точка (или круг) по экрану

uses graphABC,crt;
var x,y,r,d:integer;
    k:char;
begin
hidecursor;
x:=windowwidth div 2;
y:=windowheight div 2;
r:=2;
textout(windowwidth div 2-80,0,'Управление клавиши 2 8 4 6');
textout(windowwidth div 2-50,20,'Выход - Esc');
setpenwidth(3);
setpencolor(clRed);
circle(x,y,r);
lockdrawing;
repeat
if keypressed then
 begin
  k:=readkey;
  case k of
  #50:begin
       clearwindow;
       textout(windowwidth div 2-80,0,'Управление клавиши 2 8 4 6');
       textout(windowwidth div 2-50,20,'Выход - Esc');
       if y>windowheight-2*r then d:=0
       else d:=10;
       y:=y+d;
       circle(x,y,r);
       delay(50);
       redraw;
      end;
  #56:begin
       clearwindow ;
       textout(windowwidth div 2-80,0,'Управление клавиши 2 8 4 6');
       textout(windowwidth div 2-50,20,'Выход - Esc');
       if y<2*r+40 then d:=0
       else d:=10;
       y:=y-d;
       circle(x,y,r);
       delay(50);
       redraw
      end;
  #54:begin
       clearwindow;
       textout(windowwidth div 2-80,0,'Управление клавиши 2 8 4 6');
       textout(windowwidth div 2-50,20,'Выход - Esc');
       if x>windowwidth-2*r then d:=0
       else d:=10;
       x:=x+d;
       circle(x,y,r);
       delay(50);
       redraw;
      end;
  #52:begin
       clearwindow;
       textout(windowwidth div 2-80,0,'Управление клавиши 2 8 4 6');
       textout(windowwidth div 2-50,20,'Выход - Esc');
       if x<2*r then d:=0
       else d:=10;
       x:=x-d;
       circle(x,y,r);
       delay(50);
       redraw;
      end;
  #27:exit;
  end;
 end;
until k=#27;
end.