Анимация шарика без следов

Program upr_8_2_a;
uses crt,GraphABC;
const A:array[1..4] of real=(87.5,71.5,82.4,94);
      B:array[1..4] of string=('Беловежская пуша - ','Браславские озёра - ',
      'Припятский - ','Нарочанский - ');
var x,y1,R:integer;
    map:picture;
begin
R:=10;
x:=300;
y1:=575;
writeln('Площадь национальных парков Беларуси:');
for i:integer:=1 to 4 do begin
  writeln(B[i],'',A[i],' тыс.га');
  end;
  TextOut(465,304,'Браславские озёра');
  TextOut(498,605,'Припятский');
  TextOut(475,365,'Нарочанский');
SetWindowSize(1000,1000);
map:=picture.create('C:\Users\khleb\OneDrive\Документы\map.gif');
  map.Draw(250,250);
  map.load('C:\Users\khleb\OneDrive\Документы\map.gif');
 {750,685}
 SetBrushColor(clSkyBlue);
  SetPenColor(clSkyBlue);
   SetPenWidth(1);
circle(x,y1,R); {Беловежская пуща}
 floodfill(x,y1,clSkyBlue);
  Rectangle(455,303,462,310); {Самый маленький - Браславские озёра}
 floodfill(457,307,clRed);
   Rectangle(480,595,493,608); {Припятский Национальный парк}
 floodfill(490,599,clGold);
    Rectangle(440,340,470,370); {Нарочанский Национальный парк}
 floodfill(460,355,clCyan);
 while y1<=700 do
 begin 
 clearwindow;
   y1:=y1+10;
   circle(x,y1,R);
   sleep(10);
 end;
 map.Draw(250,250);
   Rectangle(455,303,462,310); {Самый маленький - Браславские озёра}
 floodfill(457,307,clRed);
   Rectangle(480,595,493,608); {Припятский Национальный парк}
 floodfill(490,599,clGold);
    Rectangle(440,340,470,370);{Нарочанский Национальный парк} 
 floodfill(460,355,clCyan);
    writeln('Площадь национальных парков Беларуси:');
    for i:integer:=1 to 4 do begin
  writeln(B[i],'',A[i],' тыс.га');
  end;
  TextOut(465,304,'Браславские озёра');
  TextOut(498,605,'Припятский');
  TextOut(475,365,'Нарочанский');
end.