redraw в паскале

Ответ от Cublen[гуру]
посмотри и переделай как тебе надо
program grnebo;
uses graphABC,crt;
var
x,y:integer;
n,i,r,k:integer;
m:array [1..6] of integer;
begin
randomize;
m[1]:=clred;
m[2]:=clyellow;
m[3]:=clgreen;
m[4]:=clblue;
m[5]:=clolive;
m[6]:=clsilver;
for i:=1 to 50 do begin
x:=300 + random(510)-200;
y:=250 + random(400)-200;
r:=10;
delay(100);
k:= random(6)+1;
SetBrushColor(m[k]);
circle(x,y,r);
end;
end.

Ответ от Gabdulhanov[гуру]
вот пример анимации на pascal abc, круг отскакивает от границы окна:
program okrujnost;
uses GraphABC;
var r,i,x,y:integer;
a,d:real;
begin
SetWindowCaption('Движение окружности');
SetWindowSize(300,300);
r:=30;
a:=45;
x:=Random(250)+r;
y:=Random(250)+r;
LockDrawing();
while true do
begin
ClearWindow();
if (x>WindowWidth-r)or(x<r) then a:=180-a;
if (y>WindowHeight-r)or(y<r) then a:=360-a;
x:=x+5*round(cos(a*Pi/180));
y:=y+5*round(sin(a*Pi/180));
Circle(x,y,r);
Redraw();
Sleep(10);
end;
end.

Ответ от Лысый, но не нянь[активный]
закрашивать в цвет фона и перерисовывать на других координатах

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]