Увеличивающаяся звезда

Program DZ; 
uses GraphABC; 
var 
 
i,x,y: integer; // координатные перемнные 
x0,y0: integer; // альтернативные координаты 
x1,y1: integer; // альтернативные координаты 
x2,y2: integer; // альтернативные координаты 
begin 
SetWindowSize(300,300); // размер окна 
// 1 смайлик 
x:=150;y:=150; 
 
for i:=1 to 5 do begin 
x0:=x+round(57*cos((18+36*(i*2-1))*pi*2/360)); 
y0:=y-round(57*sin((18+36*(i*2-1))*pi*2/360)); 
x1:=x+round(150*cos((18+36*i*2)*pi*2/360)); 
y1:=y-round(150*sin((18+36*i*2)*pi*2/360)); 
x2:=x+round(57*cos((18+36*(i*2+1))*pi*2/360)); 
y2:=y-round(57*sin((18+36*(i*2+1))*pi*2/360)); 
 
line(x,y,x0,y0); 
line(x,y,x1,y1); 
line(x,y,x2,y2); 
line(x1,y1,x2,y2); 
line(x0,y0,x1,y1); 
end; 
// раскраска 
FloodFill(x+3,y+3,clMaroon ); 
FloodFill(x+3,y-3,clMaroon ); 
FloodFill(x-3,y+3,clRed); 
FloodFill(x-3,y-3,clMaroon ); 
FloodFill(x+2,y-6,clRed ); 
FloodFill(x-2,y-6,clRed); 
FloodFill(x+2,y+6,clRed); 
FloodFill(x-2,y+6,clRed); 
FloodFill(x+6,y,clRed); 
FloodFill(x-6,y,clRed); 
FloodFill(x-6,y+6,clRed); 
FloodFill(x+6,y+6,clRed); 
FloodFill(x+6,y-6,clRed); 
FloodFill(x-6,y-6,clRed); 
end.

uses GraphABC,Crt;
procedure zvezda(x,y,r:integer);
var x0,y0,x1,y1,x2,y2,x3,y3,i:integer;
    p:array[1..11,1..2] of integer;
    r1,u:real;
begin
r1:=0.382*r;
u:=pi/2;
for i:=1 to 5 do
 begin
  p[2*i-1,1]:=x+round(r*cos(u));
  p[2*i-1,2]:=y-round(r*sin(u));
  p[2*i,1]:=x+round(r1*cos(u+pi/5));
  p[2*i,2]:=y-round(r1*sin(u+pi/5));
  u:=u+2*pi/5;
 end;
p[11,1]:=p[1,1];
p[11,2]:=p[1,2];
setbrushcolor(clRed);
polygon(p,11);
for i:=1 to 5 do
line(x,y,p[2*i-1,1],p[2*i-1,2]);
end;
 
var x,y,r: integer;
begin
hidecursor;
SetWindowSize(350,350); // размер окна
x:=175;
y:=175;
r:=150;
zvezda(x,y,r);
lockdrawing;
repeat
while r>20 do
 begin
  clearwindow(clWhite);
  zvezda(x,y,r);
  sleep(50);
  r:=r-5;
  redraw;
 end;
while r<150 do
 begin
  clearwindow;
  zvezda(x,y,r);
  sleep(50);
  r:=r+5;
  redraw;
 end;
until keypressed;
end.