Вопрос Пишу программу на PascalABC.NET, делаю иллюзию движения, появляется мерцание при перерисовки кадра.

[3958721]

uses GraphABC;
type mas=array[1..100] of integer;
var y,a,i:integer; x1,x2,y1,y2:mas;
Begin
SetWindowSize(800,600);
randomize;
y:=400;
Rectangle(20,300,120,400);
Line(0,400,1200,400);
FOR i:=1 to 100 do
begin
a:=random(5)+1;

x1:=i*8;x2:=i*8+3;y1:=y+a;y2:=y+a+5;
end;
while a<>100 do begin
Rectangle(20,300,120,400);
Line(0,400,1200,400);
for i:=1 to 100 do begin
Ellipse(x1,y1,x2,y2);
dec(x1);dec(x2);
if (x1<0) then begin x1:=800;x2:=803;end;
end;
sleep(100);
SetBrushColor(clWhite);
FillRect(0,y+1,800,y+11);
end;

end.

//сам код