Смена цвета фона в графическом режиме Опции

[RathaR]

Не выходит сменить цвет фона в графическом режиме, процедура SetBkColor не меняет ничего... экран остается черный. Я порылся в поиске, пару прецендентов нашёл, но подходящих решений, и внятного ответа не попалось. В графике пока понимаю немного, никаких видео-режимов, или еще чегот подобного не менял и не использую. Как решить подобную проблему?

[volvo]

FPC 2.2.4:

program  pole2;

uses
		Crt,Graph;
var
		Gdriver,Gmod:integer;
		x,y,x1,y1:integer;
procedure Fon;
const
		H_size = 1000;

		V_size = 600;

		Gora:array[1..8] of integer = (H_size div 3, 600,

									   H_size div 2, 2 * V_size div 3,

									   2 * H_size div 3, 600,

									   H_size div 3, 600);
		Z1 = 500;

		Z2 = 500;
begin
setbkcolor(15);
cleardevice; { <--- Вот это добавить, тогда отрабатывает SetBkColor }
setfillstyle(10,8);
setlinestyle(0,0,3);
setcolor(8);
drawpoly(4,Gora);
floodfill(Z1,Z2,8);
rectangle(1,1,1000,600);
setcolor(1);
rectangle(950,550,1000,600);
end;
function popal(x,y,zvet:integer):boolean;

		begin
		if getpixel(x,y)= 1 then popal:=true else popal:=false;
		end;
begin
Gdriver:=VGA; GMod := VGAHI; { <--- Установка 640*480 }
initgraph(Gdriver,Gmod,'');
Fon;
readln;
closegraph;
end.

Естественно, координаты всех фигур - меняй, они будут некорректными И никогда не привязывайся к конкретным значениям ширины/высоты экрана - GetMaxX/GetMaxY совсем не просто так придумали.