Анимация. Программа должна рисовать снеговика и снежинки на фоне окна. (Pascal ABC)

[Nickolay0512]

Программа должна рисовать снеговика и снежинки на фоне окна. Но снежинки закрашивают снеговика. Помогите сделать так, чтобы снеговик был на фоне падающих снежинок.
Текст моей программы:

uses crt,graphABC;
Var gd,gm:integer; x,y:array[1..500] of integer;
    i,j,k,n:integer;
begin
randomize;
   clrscr;
{рисуем снеговика}
clearwindow(clblue);
circle (270,330,90);
circle (270,180,60);
circle (270,90,30);
Line (217,150,150,210);
Line (150,390,150,30);
Line (150,90,120,30);
Line (150,90,180,30);
Line (150,90,135,30);
Line (150,90,165,30);
Line (322,150,390,210);
Line (270,95,270,105);
Circle (255,85,7);
Circle (285,85,7);
{рисуем снежинки}
hidecursor;
setpencolor(clWhite);
setbrushcolor(clWhite);
for i:=1 to 500 do
 begin
  x[i]:=random(windowwidth);
  y[i]:=random(windowheight);
  circle(x[i],y[i],2);
 end;
k:=0;n:=0;
repeat
k:=k+1;
delay(100);
setpencolor(clwhite);
setbrushcolor(clwhite);
for i:=1 to 500 do
circle(x[i],y[i],2);
for i:=1 to 500 do
 begin
  if y[i]>windowheight-n-10 then y[i]:=1
  else y[i]:=y[i]+3;
  if x[i]<0 then x[i]:=windowwidth
  else x[i]:=x[i]-1;
 end;
setpencolor(clWhite);
setbrushcolor(clWhite);
for i:=1 to 500 do
circle(x[i],y[i],2);
if k mod 20=0 then
 begin
  n:=n+1;
  line(0,windowheight-n,windowwidth,windowheight-n);
 end;
until keypressed;
end.

[ZX Spectrum-128]

Можно перерисовывать снеговика (медленно)
Можно копировать его образ в память и затем восстанавливать.
Чтобы избежать мерцания, используйте redraw
Пример есть в help. Называется блокировка рисования и анимациябез мерцания

[Кирилл Журавский]

сделай снеговика разрушителем с помощью модуля ABCObjects