Ошибка в исполнении программы

uses graphABC,crt;
var x,y,r:integer;
    k:char;
 begin
 x:=100;
 y:=100;
 circle(x,y,10);
 while true do
  Begin
   k:=readkey;
    case k of
    'w':begin
       clearwindow ;
       y:=y+10;
       circle(x,y,10);
    End;
    's':begin
       clearwindow ;
       y:=y-10;
       circle(x,y,10);
    End;
    'a':begin
       clearwindow ;
       x:=x-10;
       circle(x,y,10);
    End;
    'd':begin
       clearwindow ;
       x:=x+10;
       circle(x,y,10);
    End;
    End;
  End;
 End.

uses graphABC,crt;
var x,y,r:integer;
    k:char;
begin
hidecursor;
x:=100;
y:=100;
lockdrawing;
circle(x,y,10);
 repeat
   k:=readkey;
    case k of
    'w':begin
       clearwindow ;
       y:=y+10;
       circle(x,y,10);
       delay(50);
       redraw
       End;
    's':begin
       clearwindow ;
       y:=y-10;
       circle(x,y,10);
       delay(50);
       redraw
    End;
    'a':begin
       clearwindow ;
       x:=x-10;
       circle(x,y,10);
       delay(50);
       redraw
    End;
    'd':begin
       clearwindow ;
       x:=x+10;
       circle(x,y,10);
        delay(50);
       redraw
    End;
    #27:exit//âûõîä Esc
    End;
 until k=#27
 End.

uses graphABC;
var x,y,r:integer;
    f:boolean;
procedure KeyDown(key:integer);
begin
case key of
vk_up:if y>r then y:=y-5;
vk_down:if y<windowheight-r then y:=y+5;
vk_left:if x>r then x:=x-5;
vk_right:if x<windowwidth-r then x:=x+5;
vk_space:f:=false
end;
end;
begin
x:=windowwidth div 2;
y:=windowheight div 2;
f:=true;
r:=15;
textout(windowwidth div 2-80,0,'Управление стрелками');
textout(windowwidth div 2-50,20,'Выход - Esc');
setpenwidth(3);
setpencolor(clRed);
circle(x,y,r);
lockdrawing;
repeat
clearwindow;
textout(windowwidth div 2-80,0,'Управление стрелками');
textout(windowwidth div 2-50,20,'Выход - Spase');
OnKeyDown := KeyDown;
circle(x,y,r);
sleep(100);
redraw;
until f=false;
end.