Простая анимация с привязкой к клавишам

uses graphABC,crt;
procedure Smail(x,y,r:integer);
begin
setbrushcolor(clYellow);
circle(x,y,r);
setbrushcolor(clBlue);
circle(x-8,y-5,3);
circle(x+8,y-5,3);
setpencolor(clBlack);
Arc(x,y+10,8,10,170);
end;
var x,y,r,d:integer;
    k:char;
begin
hidecursor;
x:=windowwidth div 2;
y:=windowheight div 2;
r:=15;
textout(x-80,20,'Управление стрелками');
textout(x-50,40,'Выход - Esc');
Smail(x,y,r);
lockdrawing;
repeat
if keypressed then
  begin
    k:=readkey;
    if k=#80 then
      begin
       clearwindow;
       if y>windowheight-2*r then d:=0
       else d:=10;
       y:=y+d;
       Smail(x,y,r);
       delay(100);
       redraw;
      end;
    if k=#72 then
      begin
        clearwindow ;
        if y<2*r then d:=0
        else d:=10;
        y:=y-d;
        Smail(x,y,r);
        delay(100);
        redraw
       end;
    if k=#75 then
      begin
       clearwindow;
       if x>windowwidth-2*r then d:=0
       else d:=10;
       x:=x+d;
       Smail(x,y,r);
       delay(100);
       redraw;
      end;
    if k=#77 then
      begin
       clearwindow;
       if x<2*r then d:=0
       else d:=10;
       x:=x-d;
       Smail(x,y,r);
       delay(100);
       redraw;
      end;
    if k=#27 then exit;
  end;
until k=#27;
end.