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

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.