Нарисовать кота и цветок

uses graphABC;
//рисование 1 лепестка
procedure lepestok(c,r,r1,r2:integer;u:real);
var x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6:integer;
begin
//большая дуга
x1:=c+round(r*cos(u*pi/180));
y1:=c-round(r*sin(u*pi/180));
arc(x1,y1,r1,u-70,u+70);
//координаты ее концов
x2:=c+round((r+25)*cos((u-20)*pi/180));
y2:=c-round((r+25)*sin((u-20)*pi/180));
x3:=c+round((r+25)*cos((u+20)*pi/180));
y3:=c-round((r+25)*sin((u+20)*pi/180));
//малая дуга (внутри)
x4:=c+round(r2*cos(u*pi/180));
y4:=c-round(r2*sin(u*pi/180));
arc(x4,y4,r2-10,u+70,u-70);
//координаты ее концов
x5:=c+round((r2)*cos((u+10)*pi/180));
y5:=c-round((r2)*sin((u+10)*pi/180));
x6:=c+round((r2)*cos((u-10)*pi/180));
y6:=c-round((r2)*sin((u-10)*pi/180));
//боковые линии
line(x5,y5,x3,y3);
line(x6,y6,x2,y2);
end;
var c,i:integer;
    u:real;
begin
setwindowsize(400,400);
centerwindow;
c:=200;
setpenwidth(3);
circle(c,c,c-20);
circle(c,c,c-40);
u:=90;
for i:=1 to 9 do
 begin
  lepestok(c,100,45,12,u);
  u:=u+40;
 end;
end.

u:integer;

uses graphABC;
const n=27;
      m=22;
type point=record
           x,y:integer;
           end;
var c,d,i:integer;
    p:array[1..4]of point;
begin
d:=20;
setwindowsize(n*d,m*d);
centerwindow;
setpencolor(clOlive);
for i:=1 to n do
 begin
  if i<=m then line(0,(i-1)*d,n*d,(i-1)*d);
  line((i-1)*d,0,(i-1)*d,n*d);
 end;
setpencolor(clGray);
setbrushcolor(clGray);
for i:=1 to 3 do
rectangle((5-i)*d,(15+i)*d,(n-5+i)*d,(16+i)*d);
c:=7*d;
for i:=1 to 5 do
 begin
  rectangle(c,8*d,c+d,16*d);
  c:=c+3*d;
 end;
setpencolor(clBlack);
setbrushcolor(clBlack);
c:=7*d+d div 2;
for i:=1 to 5 do
 begin
  ellipse(c-d,8*d,c+d,9*d);
  c:=c+3*d;
 end;
setpencolor(clMedGray);
setbrushcolor(clMedGray);
p[1].x:=4*d; p[1].y:=8*d;
p[2].x:=27*d div 2; p[2].y:=3*d;
p[3].x:=23*d; p[3].y:=8*d;
p[4]:=p[1];
polygon(p,4);
setpencolor(clGray);
setbrushcolor(clGray);
p[1].x:=7*d; p[1].y:=7*d;
p[2].x:=27*d div 2; p[2].y:=4*d;
p[3].x:=20*d; p[3].y:=7*d;
p[4]:=p[1];
polygon(p,4);
setpencolor(clBlack);
setbrushcolor(clBlack);
circle(27*d div 2,11*d div 2,d);
end.