Изменяющаяся окружность

uses 
  graphabc;
var
  x, y, r: integer;
 
procedure KeyDown(Key: integer);
begin
  case Key of
    VK_Up: 
      begin
        setPencolor(clWhite);
        circle(x, y, r);
        sleep(100);
        setPencolor(clBlack);
        circle(x, y, r);
        r := r + 1;
        if (r >= WindowWidth) or (r >= WindowHeight) then
          exit;
      end;   
    VK_Down:
      begin
        setPencolor(clBlack);
        circle(x, y, r);
        sleep(100);
        setPencolor(clWhite);
        circle(x, y, r);
        r := r - 1;
        if r < 1 then
          exit;
      end;   
    VK_F10: halt(0);
  end;
end;
 
begin
  SetWindowSize(400, 400);
  SetBrushColor(clWhite);
  ClearWindow;
  x := WindowWidth div 2;
  y := WindowHeight div 2;
  OnKeyDown := KeyDown;
  r := 60;
  setPencolor(clBlack);
  circle(x, y, r);
end.

uses
  graphabc,events;
var
  x, y, r: integer;
  f:boolean;
procedure KeyDown(Key: integer);
begin
  case Key of
    VK_Up: if r<windowheight div 2 then r:=r+1;
    VK_Down:if r>1 then r:=r-1;
    VK_F10: f:=not f;
  end;
end;
 
begin
  SetWindowSize(400, 400);
  SetBrushColor(clWhite);
  ClearWindow;
  x := WindowWidth div 2;
  y := WindowHeight div 2;
  f:=true;
  OnKeyDown := KeyDown;
  r := 60;
  lockdrawing;
  repeat
  clearwindow;
  circle(x, y, r);
  sleep(50);
  redraw;
  until not f;
end.