Как редактировать эту программу?

Как преобразовать программу, чтобы цветы были закрашенный изнутри пикселями, эта команда выполнялась через процедуру и разброс цветов на экране увеличился?

(Просто на словах идеи и предложения)

uses GraphABC;
procedure flower(n:integer);
var
size,x0,y0:integer;
begin
var a:real:=0;
var col:Color := clRandom;
size := random(100)+10;
x0 := random(200);
y0 := random(100);
repeat
var r:=sin(n*(Pi*a/180));
var x:=round(r*Cos(Pi*a/180)*size)+x0;
var y:=round(r*Sin(Pi*a/180)*size)+y0;
PutPixel(x,y,col);
a:=a+0.01
until a>=360
end;

begin
SetWindowSize(800,600);
Coordinate.Origin := Window.Center;
Coordinate.SetMathematic;
for var i := 0 to 5 do
flower(random(5)+2);
end.