Графика. Компьютерное искуство.Добивка

uses crt,Graph;
type mas=array[1..300] of pointType;
procedure kug(r,x1,y1:integer; var a:mas;p:boolean);
var
f,df:real;
i:byte;
x,y:integer;
begin
f:=pi/2;
df:=2*pi/200;
for i:=1 to 200+1 do
begin
 x:=x1+round(r*cos(f));
 if p then y:=y1-round(r*sin(f))
      else y:=y1+round(r*sin(f));
 a[i].x:=x;
 a[i].y:=y;
 f:=f+df;
end;
end;
var
j,i:byte;
a,b:mas;
q,d,x,y:Integer;
begin
d:=detect;
initGraph(q,d,'');
 
x:=getmaxx div 2;
y:=getmaxy div 2;
 
kug(100,x,y,a,true);
kug(110,x,y,b,false);
    j:=0;
repeat
inc(j);
for i:=1 to 250 do
begin
line(a[i].x,a[i].y,x,y);
line(b[i].x,b[i].y,x,y);
delay(10)
end;
cleardevice;
until j=5;
readln;
end.

uses crt,graph;
procedure Vrash1(a:real;var x,y:integer;x0,y0,d:integer);
var px:integer;
begin
x:=x0+round(d*sin(a));
y:=y0-round(d*cos(a));
end;
procedure Vrash2(a:real;var x,y:integer;x0,y0,d:integer);
var px:integer;
begin
x:=x0+round(d*cos(a));
y:=y0-round(d*sin(a));
end;
 
var gd,gm:integer;
    x0,y0,d,c,ax,ay,bx,by,cx,cy,dx,dy:integer;
    aa,ab,ac,ad:real;
begin
gd:=0;
initgraph(gd,gm,'');
x0:=getmaxX div 2;y0:=getmaxY div 2;
outtextXY(x0-80,20,'Exit - any key');
d:=150;
setcolor(14);
circle(x0,y0,d+1);
circle(x0,y0,d+21);
setfillstyle(1,14);
floodfill(x0,y0-d-5,14);
aa:=0;ab:=pi;ac:=pi/2;ad:=3*pi/2;
c:=1;
repeat
Vrash1(aa,ax,ay,x0,y0,d);
Vrash1(ab,bx,by,x0,y0,d);
Vrash2(ac,cx,cy,x0,y0,d);
Vrash2(ad,dx,dy,x0,y0,d);
Setcolor(c);
setlinestyle(0,0,3);
line(ax,ay,bx,by);
Setcolor(c);
setlinestyle(0,0,3);
line(cx,cy,dx,dy);
delay(1);
setcolor(0);
setlinestyle(0,0,3);
line(ax,ay,bx,by);
line(cx,cy,dx,dy);
aa:=aa+0.02;ab:=ab+0.02;ac:=ac+0.02;ad:=ad+0.02;
if round(aa*180/pi) mod 90=0 then c:=c+1;
if c=16 then c:=1;
until keypressed;
end.