Написать программу для рисования данного орнамента, написать комментарии к каждому действию программы

uses
GraphABC;
const
r = 17;
x0 = 5;
ww = WindowWidth-1;
y0 = 5;
wh = WindowHeight-1;
var
x, y:integer;
 
procedure Rectangle1(x, y:integer);{прямоугольник внешний}
begin
x:=x0+2; y:=y0+2; MoveTo(x,y);
x:=ww-10; y:=y0+2; LineTo(x,y); {вправо}
x:=ww-10; y:=wh-4; LineTo(x,y);{вниз}
x:=x0+2; y:=wh-4; LineTo(x,y);{влево}
x:=x0+2; y:=y0+2; LineTo(x,y);{вверх}
end;
 
procedure Rectangle2(x, y:integer);{прямоугольник внутренний}
begin
x:=x0+round(2.5*r); y:=y0+round(2.5*r); MoveTo(x, y);
x:=ww-round(3.1*r); y:=y0+round(2.5*r); LineTo(x, y); {вправо}
x:=ww-round(3.1*r); y:=wh-round(2.7*r); LineTo(x, y); {вниз}
x:=x0+round(2.5*r); y:=wh-round(2.7*r); LineTo(x, y);{влево}
x:=x0+round(2.5*r); y:=y0+round(2.5*r); LineTo(x, y);{вверх}
end;
 
procedure Circle(x, y, r:integer);
begin
DrawCircle(x, y, r);
end;
 
procedure PerimetrCircle(x, y, r:integer);{по периметру}
var
i:integer;
begin
x:=r+10; y:=r+10;
for i:=1 to 34 do {вправо}
begin
x:=x+r;
Circle(x, y, r);
end;
 
for i:=1 to 25 do {вниз}
begin
y:=y+r;
Circle(x, y, r);
end;
 
for i:=1 to 34 do {влево}
begin
x:=x-r;
Circle(x, y, r);
end;
 
for i:=1 to 25 do {вверх}
begin
y:=y-r;
Circle(x, y, r);
end;
end;
 
begin 
Rectangle1(x, y);
Rectangle2(x, y);
PerimetrCircle(x, y, r);
end.