Нужно в Pascal создать анимацию, чтобы круг двигался из угла в угол (нижний в верхний или наоборот).

Делал как-то, когда учился в школе.var i:integer;   x,y,ugol,xs,ys: real;begin  xs:=100;  ys:=100;  ugol:=30;  LockDrawing;  for i:=1 to 500 do  begin    clearwindow;    x:=xs+i*sin(ugol*pi/180);    y:=ys+i*cos(ugol*pi/180);    Circle(round(x),round(y),20);    sleep(10);    Redraw;    if y+20>windowheight then break;  end;end.