Модули и Графика: нарисовать Чебурашку

unit myunit;
 
interface
uses graphABC;
 
procedure Cheb(x,y: integer);
 
implementation
 
procedure Cheb(x,y: integer);
begin
SetBrushColor (clBrown);
SetPenColor (clBrown);
circle (170+x,170+y, 50);
circle (90+x,170+y, 50);
circle (250+x,170+y, 50);
circle (170+x,260+y, 50);
Chord(95+x,275+y,50,45,-145);
Chord(245+x,275+y,50,-35,135);
Chord(115+x,340+y,50,0,180);
Chord(225+x,340+y,50,0,180);
SetPenColor (clBlack);
circle (150+x,160+y, 10);
circle (190+x,160+y, 10);
line (150+x,150+y,150+x,170+y);
line (190+x,150+y,190+x,170+y);
floodfill(145+x,160+y,clwhite);
floodfill(185+x,160+y,clwhite);
floodfill(155+x,160+y,clBlack);
floodfill(195+x,160+y,clBlack);
line (170+x,175+y,175+x,185+y);
line (175+x,185+y,165+x,185+y);
line (165+x,185+y,170+x,175+y);
floodfill(170+x,180+y,clBlack);
Arc(170+x,180+y,30,200,-20);
end;
 
end.

uses myunit,graphABC;
 
begin
setwindowsize(900,700);
Cheb(-20,-100);
Cheb(580,-100);
Cheb(-20,340);
Cheb(580,340);
Cheb(280,140);
end.