Управление анимацией с клавиатуры.

uses
  GraphABC, crt;
 
var
  x, y, r, d, cl: integer;
  dx: integer;
  dy: integer;
  speed: integer;
  k: char;
 
procedure Riss;
begin
  ClearWindow;
  Inc(x, dx); Inc(y, dy);
  setbrushcolor(clred);
  if cl = 0 then
  begin
    Circle(x, y, 5);
    MoveTo(x, y + 5);
    LineTo(x, y + 20);
    LineTo(x + 5, y + 40);
    MoveTo(x, y + 20);
    LineTo(x - 5, y + 40);
    MoveTo(x, y + 5);
    LineTo(x + 5, y + 20);
    MoveTo(x, y + 5);
    LineTo(x - 5, y + 20);
    cl := 1;
  end
  else
  begin
    Circle(x, y, 5);
    MoveTo(x, y + 5);
    LineTo(x, y + 20);
    LineTo(x + 2, y + 40);
    MoveTo(x, y + 20);
    LineTo(x - 2, y + 40);
    
    MoveTo(x, y + 5);
    LineTo(x + 2, y + 20);
    MoveTo(x, y + 5);
    LineTo(x - 2, y + 20);
    cl := 0;
  end;
  redraw;
end;
 
 
begin
  lockdrawing;
  SetWindowSize(900, 600);
  CenterWindow;
  x := 600;
  y := 300;
  cl := 0;
  
  Riss;
  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;
        Riss;
        delay(100);
        redraw;
      end;
      if k = #72 then
      begin
        clearwindow;
        if y < 2 * r then d := 0
        else d := 10;
        y := y - d;
        Riss;
        delay(100);
        redraw
      end;
      if k = #75 then
      begin
        clearwindow;
        if x > windowwidth - 2 * r then d := 0
        else d := 10;
        x := x + d;
        Riss;
        delay(100);
        redraw;
      end;
      if k = #77 then
      begin
        clearwindow;
        if x < 2 * r then d := 0
        else d := 10;
        x := x - d;
        Riss;
        delay(100);
        redraw;
      end;
    end;
  until k = #27;
  
end.