Графика в Паскаль: Необходимо чтобы фон заливался красным, а рамочка как есть сейчас оставалась желтой.

uses Graph, crt;
 
var
 D, r, e : integer;
begin
 {Инициируем графику}
 InitGraph(d, r, 'h:\bp\bgi');
 e := GraphResult;
 if e <> grOk then
 begin
    Writeln('Ошибка перехода в графический режим');
    Exit;
 end;
 
 begin
 SetFillStyle(0, Red);
 
 Bar(10, 10, GetMaxX-10, GetMaxY-10);  {Цвет рамки}
 SetColor(14);
 
 Rectangle(10, 10, GetMaxX-10, GetMaxY-10);     {???}
 SetColor(4);
 
 
 SetColor(14);                     {Цвет колец}
 Circle(GetMaxX-140-180, 250, 35);
 Circle(GetMaxX-160-200, 260, 40);
 
 
 SetTextStyle(7, 0, 6);                   {Про текст}
 SetColor(14);
 OutTextXY(40, 90, 'С Днем Свадьбы!!!');
 SetTextStyle(0, 0, 1);
 OutTextXY(70, 200, '');
 end;
 
 
 if ReadKey = #0 then d := ord(ReadKey);
 CloseGraph;
end.

uses Graph, crt;
 
var
 D, r, e : integer;
begin
 {Инициируем графику}
 InitGraph(d, r, 'h:\bp\bgi');
 e := GraphResult;
 if e <> grOk then
 begin
    Writeln('Ошибка перехода в графический режим');
    Exit;
 end;
 {фон}
 Setbkcolor(Red);
 {рамка}
 SetColor(14);
 Rectangle(10, 10, GetMaxX-10, GetMaxY-10);
 {кольца}
 Circle(GetMaxX-320, 250, 35);
 Circle(GetMaxX-320, 250, 30);
 Setfillstyle(1,14);
 Floodfill(GetMaxX-320,282,14);
 Circle(GetMaxX-360, 260, 40);
 Circle(GetMaxX-360, 260, 35);
 Setfillstyle(1,14);
 Floodfill(GetMaxX-398,260,14);
 Floodfill(GetMaxX-322,260,14);
 {текст}
 SetTextStyle(7, 0, 6);
 SetColor(14);
 OutTextXY(40, 90, 'С Днем Свадьбы!!!');
 SetTextStyle(0, 0, 1);
 OutTextXY(70, 200, '');
 ReadKey;
end.