Овал Кассини + анимация

uses GraphABC;
Var i,x0,y0,x1,y1,k,b,c: integer;
    x,y,z:real;
Begin
  setWindowSize(700,500);
   x0:=320; y0:=200; k:=30;
   line(x0,20,x0,380);   line(20,y0,620,y0);    {оси координат}
   line(x0,20,x0-10,30);  line(x0,20,x0+10,30);
   line(630,y0,620,y0-10);  line(630,y0,620,y0+10);
   for i:=-10 to 10 do
       begin
       line(x0+(i*k),y0-10,x0+(i*k),y0+10);
       textout(x0+(i*k),y0+10,inttostr(i));
       end;
   for i:=-5 to 5 do
       begin
       line(x0-10,y0+(i*k),x0+10,y0+(i*k));
       if i<>0 then textout(x0+10,y0+(i*k),inttostr(-i));
       end;
   setPenColor(clRed);
   write('Введите значение b: ');
   read(b);
   write('Введите значение c: ');
   read(c);
   x:=-10; 
 While x<=10 do
   begin
    z:=sqrt(b*b*b*b+4*c*c*x*x)-x*x-c*c;//выражение под первым корнем
    if z>=0 then
     begin
       y:=sqrt(z);
       setpixel(x0+round(x*k),y0-round(y*k),clRed);
       setpixel(x0+round(x*k),y0+round(y*k),clRed);
     end;
    x:=x+0.001;
   end;
   End.

uses GraphABC;
Var i,x0,y0,k,x,y,x1,y1: integer;
a,t,b,c:real;    
Begin
 
   x0:=320; y0:=200; k:=30;
   line(x0,20,x0,380);  
   line(20,y0,620,y0);
 
   
   for i:=-10 to 10 do
       begin
       line(x0+(i*k),y0-10,x0+(i*k),y0+10);
       textout(x0+(i*k),y0+10,inttostr(i));
       end;
   for i:=-5 to 5 do
       begin
       line(x0-10,y0+(i*k),x0+10,y0+(i*k));
       if i<>0 then textout(x0+10,y0+(i*k),inttostr(-i));
       end;
 write('Введите значение a: ');
 read(a);
 t:=-5; 
while t<=pi do
begin 
REPEAT
LockDrawing;
ClearWindow;
setpencolor(clBlack);
line(x0,20,x0,380);  
line(20,y0,620,y0);
 
   for i:=-10 to 10 do
       begin
       line(x0+(i*k),y0-10,x0+(i*k),y0+10);
     
       end;
   for i:=-5 to 5 do
       begin
       line(x0-10,y0+(i*k),x0+10,y0+(i*k));
   
       end;
t:=t+0.01; 
b:=sin(t);
c:=cos(t);
x:=x0+round(a*c); 
y:=y0-round(a*b*c); 
circle(x,y,10); 
setpencolor(clWhite);
setbrushcolor(clRed);
Redraw;
 
UNTIL FALSE
end; 
End.