Модуль Graph - не закрашиваются края в черный цвет

Program pr;
uses
crt,graph;
var
z1,z2,z3:integer;
a,b,c:integer;
y1,y2,y3,x,y:integer;
gd,gm:integer;
max,may:integer;
s,n,n1,s1,s2,s3:string;
h1,h2,h3:integer;
begin
randomize;
a:=random(31)+10;
b:=random(31)+10;
C:=100-a-b;
a:=round(a);
b:=round(b);
c:=round(c);
gd:=0;gd:=detect;
initgraph(gd,gm,'D:\BP\BGI');
setbkcolor(15);
setcolor(4);
setfillstyle(1,4);
y1:=400-4*a;
y2:=400-4*b;
Y3:=400-4*c;
z1:=y1-3;
z2:=y2-3;
z3:=y3-3;
h1:=y1-40;
h2:=y2-40;
h3:=y3-40;
bar3d(50+130,400,100+130,y1,25,true);
bar3d(150+130,400,200+130,y2,25,true);
bar3d(250+130,400,300+130,y3,25,true);
floodfill(101+150,375,4);
floodfill(201+130,375,4);
floodfill(301+130,375,4);
floodfill(75+130,z1,4);
floodfill(175+130,z2,4);
floodfill(275+130,z3,4);
setcolor(7);
settextstyle(1,0,1);
str(a,s1);
str(b,s2);
str(c,s3);
outtextxy(85+130,h1,s1);
outtextxy(185+130,h2,s2);
outtextxy(285+130,h3,s3);
setcolor(5);
s:='';
outtextxy(185,25,s);
n:=''    ;
n1:='';
outtextxy(420,300,n);
outtextxy(420,325,n1);
Outtextxy(250,40,'primer grafika');
Outtextxy(250,440,'Zorkin Nikita');
SETcolor(0);
Setfillstyle(1,0);
Rectangle(0,0,105,getmaxy);
Rectangle(520,0,getmaxx,getmaxy);
 
Floodfill(50,50,0)  ;
Floodfill(540,10,0);
readln ;
end.

Setfillstyle(1,0);
Setfillstyle(1,black);

Setfillstyle(1,8);

setbkcolor(15);

setfillstyle(1,15);
bar(0,0,getmaxX,getmaxY);