Необходимо создать программу, рисующую круг и закрашивающую его в тот цвет который носит клавиша от 1 до 9 на

PROGRAM L2;
 
USES
  GRAPHABC;
  
VAR
  COLOR: SYSTEM.DRAWING.COLOR;
 
PROCEDURE KEYDOWN(KEY: INTEGER);
BEGIN
  CASE KEY OF
    VK_NUMPAD1: COLOR := CLRED;
    VK_NUMPAD2: COLOR := CLWHITE;
    VK_NUMPAD3: COLOR := CLBROWN;
    VK_NUMPAD4: COLOR := CLMAGENTA;
    VK_NUMPAD5: COLOR := CLBLACK;
    VK_NUMPAD6: COLOR := CLORANGE;
    VK_NUMPAD7: COLOR := CLBLUE;
    VK_NUMPAD8: COLOR := CLYELLOW;
    VK_NUMPAD9: COLOR := CLGREEN;
  END;
END;
  
BEGIN 
  SETWINDOWSIZE(1280, 720);
  CENTERWINDOW;
  SETBRUSHCOLOR(COLOR);
  CIRCLE(1280 DIV 2, 720 DIV 2, 100);  
  OnKeyDown := KEYDOWN;
END.

USES GRAPHABC;
PROCEDURE KEYDOWN(KEY: INTEGER);
BEGIN
  CASE KEY OF
    VK_NUMPAD1: BRUSH.COLOR := CLRED;
    VK_NUMPAD2: BRUSH.COLOR := CLWHITE;
    VK_NUMPAD3: BRUSH.COLOR := CLBROWN;
    VK_NUMPAD4: BRUSH.COLOR := CLMAGENTA;
    VK_NUMPAD5: BRUSH.COLOR := CLBLACK;
    VK_NUMPAD6: BRUSH.COLOR := CLORANGE;
    VK_NUMPAD7: BRUSH.COLOR := CLBLUE;
    VK_NUMPAD8: BRUSH.COLOR := CLYELLOW;
    VK_NUMPAD9: BRUSH.COLOR := CLGREEN;
  END;
CIRCLE(1280 DIV 2, 720 DIV 2, 100);  
END;
BEGIN 
  SETWINDOWSIZE(1280, 720);
  CENTERWINDOW;
  OnKeyDown := KEYDOWN;
END.