Помогите анимировать . Пожалуйста.

Решение на Pascal ABC (анимация цветов в горшке)

uses GraphABC;
var y: integer;
var a1, b1, x, i, n, angle,angle1, r1, r2, a, b: integer;
begin
SetWindowWidth(600); //ширина окна программы
SetWindowHeight(400); //высота окна программы

SetPenWidth(3); //толщина пера
SetPenColor(clBrown); //цвет пера
Line(200,220,400,220); //
Line(400,220,350,380); // горшок
Line(350,380,250,380); //
Line(250,380,200,220); //
FloodFill(300,300,clBrown); //заливка замкнутой области цветом

SetPenWidth(5); //толщина пера
SetPenColor(clLime); //цвет пера
Line(200,100,250,220); //стебли цветка
Line(300,100,300,220); //стебли цветка
Line(400,100,350,220); //стебли цветка

SetPenColor(clYellow); //цвет пера
Circle(200,100, 15); //круг
FloodFill(200,100,clYellow); //заливка замкнутой области цветом
Circle(300,100, 15); //круг
FloodFill(300,100,clYellow); //заливка замкнутой области цветом
Circle(400,100, 15); //круг
FloodFill(400,100,clYellow); //заливка замкнутой области цветом
setpencolor (clPurple);
setpenwidth (2);
n:=5;
angle:=trunc(360/n);
r1:=25;
r2:=50;
a:=300;
b:=300;
for i:=0 to n-1 do
begin
moveto (trunc(a+r1*cos(angle*i*PI/180)),trunc(b+r1*sin(angle*i*PI/180)));
lineto (trunc(a+r2*cos((angle*i+angle/2)*PI/180)),trunc(b+r2*sin((angle*i+angle/2)*PI/180)));
lineto (trunc(a+r1*cos(angle*(i+1)*PI/180)),trunc(b+r1*sin(angle*(i+1)*PI/180)));
end;
setpenwidth (2);
n:=360;
angle1:=trunc(360/n);
SetPenWidth(4);
SetPenColor(clBlue);
while y<10 do
begin
inc(y);
for i:=1 to 360 do
begin
{средний цветок}
if i mod 12 = 0 then SetPenColor(clBlue) else setpencolor(argb(100, 200, 200, 200));
line (300+trunc(20*cos(i*PI/180)),100+trunc(20*sin(i*PI/180)), 300+trunc(50*cos(i*PI/180)), 100+trunc(50*sin(i*PI/180)));
{левый цветок}
if i mod 12 = 0 then SetPenColor(clMagenta) else SetPenColor(clLightYellow);
line (200+trunc(20*cos(i*PI/180)),100+trunc(20*sin(i*PI/180)), 200+trunc(50*cos(i*PI/180)), 100+trunc(50*sin(i*PI/180)));
{правый цветок}
if i mod 12 = 0 then setpencolor(argb(100, random(200), random(200),random(200))) else setpencolor(argb(100, random(200), random(200),random(200)));
line (400+trunc(20*cos(i*PI/180)),100+trunc(20*sin(i*PI/180)), 400+trunc(50*cos(i*PI/180)), 100+trunc(50*sin(i*PI/180)));
//sleep (5);
dec(y);
{Звезда}
setpencolor (clred);
circle (a+trunc((r2+3)*cos(pi/180*(angle1)*i)),b+trunc((r2+3)*sin(pi/180*angle1*i)), 1);
setpencolor (clgreen);
circle (a+trunc((r2+3)*cos(60*pi/180+pi/180*angle1*i)),b+trunc((r2+3)*sin(60*pi/180+pi/180*angle1*i)), 1);
setpencolor (clyellow);
circle (a+trunc((r2+3)*cos(120*pi/180+pi/180*angle1*i)),b+trunc((r2+3)*sin(120*pi/180+pi/180*angle1*i)), 1);
setpencolor (clred);
circle (a+trunc((r2+3)*cos(180*pi/180+pi/180*angle1*i)),b+trunc((r2+3)*sin(180*pi/180+pi/180*angle1*i)), 1);
setpencolor (clgreen);
circle (a+trunc((r2+3)*cos(240*pi/180+pi/180*angle1*i)),b+trunc((r2+3)*sin(240*pi/180+pi/180*angle1*i)), 1);
setpencolor (clyellow);
circle (a+trunc((r2+3)*cos(300*pi/180+pi/180*angle1*i)),b+trunc((r2+3)*sin(300*pi/180+pi/180*angle1*i)), 1);
if i < 180 then floodfill(a, b, clgreen )
else floodfill(a, b, clred);
end;
end;
end.

в пустые строки вставь sleep(1000);

А вы про массивы, записи и циклы ни чего не слышали.
Что конкретно вам нужно анимировать?

как я понимаю тут паскаль абц. тогда зачем использовать crt? ради readkey? с графическим окном он не нужен
и какого рода анимация должна быть ?