Графическая задача (анимация), Есть туча, идет дождь, емкость наполняется Опции

[Nike0]

Доброго времени суток. Прошу помочь в решении задачи. Вот условие: нужно составит программу вывода в верхнюю часть экрана изображение тучи, а в нижнюю – емкость для воды; при нажатии клавиши Enter начинает идти дождь. В то время, как идет дождь, туча начинает уменьшаться, а емкость наполняется.

[Nike0]

Program tu4ki;
uses
 crt,graph;

procedure graphinterface;
var
 Gd,Gm:Integer;
begin
 Gd:=Detect;
 InitGraph(Gd,Gm,'');
 if GraphResult<>grOk then
 begin
  Halt(1);
 end;
end;
begin
 clrscr;
 graphinterface;
 setbkcolor(9);
 arc(120,100,45,315,40);
 arc(170,100,45,135,40);
 arc(220,100,225,360,40);
 arc(220,100,0,135,40);
 arc(170,100,225,315,40);
 sector(165,400,180,360,120,90);
 floodfill(170,100,7);
 readkey;
 CloseGraph;
end.
 

сори что долго не писал, был занят на учебе, ну вот, написал, но во фри почему-то у меня не отображаются цвета, только черный фон и фигуры, а заливка и остальное не работает, хотя в колледже на XP с борланда все отлично... вот в чем проблема, я знаю что анимацию с помощью циклов делать надо, только не знаю КАК сделать.. если можете помогите