Управление движением и размером круга при нажатии клавиши

uses GraphABC;
var
  x0, y0, dx, dy, r: integer;
  f:boolean;
  
   //координаты шарика   
        //координаты направления
procedure KeyDown(Key: integer);
begin
  dy := 0; dx := 0;
  case Key of
    VK_Left: if x0 > 0 then dx := -2;// движение лево
    VK_Right: if x0 < 750 then dx := 2;// движение право
    VK_Down: if y0 < 550 then dy := 2; 
    VK_UP: if y0 > 0 then dy := -2;//движение верх
    VK_PageUp: r:= r + 5;
    VK_PageDown: r:= r - 5;
  end;
end;
 
procedure KeyUp(key: integer);
begin
  dy := 0; dx := 0;r:=20;
end;
 
begin
  SetWindowSize(800, 600);//Задание размера окна
  x0 := 100;   //начальные координаты
  y0 := 100;
  r:=20;
  circle(x0, y0, r);   //начальное изображение
  lockdrawing;         //блокировка рисования в графическом окне
  repeat//в цикле с постусловием
    clearwindow;         //очистка экрана
    circle(x0, y0, r);    //изображение
    x0 := x0 + dx;           //меняется положение в зависимости от направления
    y0 := y0 + dy;
    Sleep(5);         
    redraw;              //перерисовка
    OnKeyDown := KeyDown;  //обработка нажатия
    OnKeyUp := KeyUp;
  until false;
  end.