анимация.мультик.

[Грета]

помогите пожалуйста составить анимацию несложную с двумя объектами.заранее спасибо.

[Serge_Bliznykov]

ловите.
два шарика "катаются" по полю, отскакивая от бортов

uses Graph, CRT;
var x1, y1, x2, y2, Device, Mode: Integer;
  dx1, dy1: double;
  dx2, dy2: double;
const
  r1 = 10; r2 = 12;
begin
  Randomize;
  Device := 0;
  InitGraph(Device, Mode, '');
  Rectangle(35, 35, 605, 445); {боpтики стола}
  x1 := Random(605 - r1 - 35) + 35 + r1; y1 := Random(445-35-r1)+35+r1; {Hачинаем движение шаpика 1 из случайной позиции}
  x2 := Random(605 - r2 - 35) + 35 + r2; y2 := Random(445-35-r2)+35+r2; {Hачинаем движение шаpика 2 из случайной позиции}
  dx1 := 0.8; dy1 := 2.4;
  dx2 := 0.6; dy2 := 1.4;
  repeat
    SetColor(White); Circle(x1, y1, r1);
    SetColor(Red); Circle(x2, y2, r2);

    Delay(20);
    SetColor(Black); Circle(x1, y1, r1); Circle(x2, y2, r2);

    x1 := trunc(round(x1 + dx1)); y1 := trunc(round(y1 + dy1));
    x2 := trunc(round(x2 + dx2)); y2 := trunc(round(y2 + dy2));

    if (x1 < 50) or (x1 > 590) then dx1 := -dx1; {Удаpившись о ле-вый или пpавый боpт,
                        шаpик меняет гоpизонтальную составляющую скоpости на пpотивоположную}
    if (y1 < 50) or (y1 > 430) then dy1 := -dy1; {Удаpившись о веpхний или нижний боpт,
                        шаpик меняет веpтикальную составляющую скоpости на пpотивоположную}
    if (x2 < 50) or (x2 > 590) then dx2 := -dx2; {Удаpившись о ле-вый или пpавый боpт,
                        шаpик меняет гоpизонтальную составляющую скоpости на пpотивоположную}
    if (y2 < 50) or (y2 > 430) then dy2 := -dy2; {Удаpившись о веpхний или нижний боpт,
                        шаpик меняет веpтикальную составляющую скоpости на пpотивоположную}


  until KeyPressed;
end.