Serce w pascalu jak wypełnić?

Witam,napisałem serce w pascalu :smiley: tylko nie wiem jak wypełnić środek… może ktoś pomoże? kod wygląda tak:

arc(300,300,330,150,30);

arc(248,300,390,200,30);

line(220,310,273,384);

line(326,315,273,384);

dałem jeszcze tło… ale nie wiem jak wypełnić obrazek żeby był czerwony xD… no i jeszcze jedno… jak trzeba zrobić żeby te serce umiescic w programie napisanym… znaczy… jest program i tekst w nim… writeln(‘coś tam’) no i kolo tego “coś tam” ma widnieć serce… pomoże ktos?

z góry dziekuję !!

FloodFill(X,Y,color_krawędzi);

OutText(x,y,tekst);