Нарисовать восьмиугольник с помощью цикла

uses graphABC;
var kx,ky,i,j,r:integer;
 
procedure Shest(x,y: integer; r: integer);
var z: integer;
begin
  z:=0;
  MoveTo(x+Round(r*cos(2*z*Pi/360)),y+Round(r*sin(2*z*Pi/360)));
  repeat
    inc(z,60);
    LineTo(x+Round(r*cos(2*z*Pi/360)),y+Round(r*sin(2*z*Pi/360)));
  until 360<=z;
end;
 
begin
kx:=200;ky:=200;
r:=50;
for i:=1 to 20 do
    begin
    Shest(kx,ky,r);
    kx:=kx+5;
    r:=r+5;
    end;
end.

uses crt,graphABC;
var xc,yc,ro,x,i:integer;
    rv,a,u1,u2,u3,du,r1,r2,r3:real;
begin
setwindowsize(500,400);
xc:=windowwidth div 3;
yc:=windowheight div 2;
ro:=(windowwidth-40) div 6;
//рисуем начальный 8-угольник
u1:=-pi/8; du:=pi/4;
moveto(xc+round(ro*cos(u1)),yc-round(ro*sin(u1)));
for i:=0 to 8 do
lineto(xc+round(ro*cos(u1+i*du)),yc-round(ro*sin(u1+i*du)));
rv:=ro*cos(pi/8);
a:=2*ro*sin(pi/8);
x:=xc-round(rv);
u1:=arctan(2*rv/(2*rv-a));
u2:=arctan(2*rv/(2*rv+a));
u3:=arctan(a/(4*rv));
r1:=rv/sin(u1);
r2:=rv/sin(u2);
r3:=a/(2*sin(u3));
for i:=1 to 16 do
 begin
  r1:=r1*1.05;
  r2:=r2*1.05;
  r3:=r3*1.05;
  moveto(x+round(r1*cos(u1)),yc-round(r1*sin(u1)));
  lineto(x+round(r2*cos(u2)),yc-round(r2*sin(u2)));
  lineto(x+round(r3*cos(u3)),yc-round(r3*sin(u3)));
  lineto(x+round(r3*cos(-u3)),yc-round(r3*sin(-u3)));
  lineto(x+round(r2*cos(-u2)),yc-round(r2*sin(-u2)));
  lineto(x+round(r1*cos(-u1)),yc-round(r1*sin(-u1)));
 end;
moveto(x,yc-round(a/2));
lineto(x,yc-round(rv));
lineto(x+round(r1*cos(u1)),yc-round(r1*sin(u1)));
lineto(xc+round(ro*cos(pi/2+pi/8)),yc-round(ro*sin(pi/2+pi/8)));
floodfill(x+1,yc-round(a/2)-5,clBlack);
moveto(x,yc+round(a/2));
lineto(x,yc+round(rv));
lineto(x+round(r1*cos(u1)),yc+round(r1*sin(u1)));
lineto(xc+round(ro*cos(pi/2+pi/8)),yc+round(ro*sin(pi/2+pi/8)));
floodfill(x+1,yc+round(a/2)+5,clBlack);
end.