...
  initgraph(gd, gm, ''); 

    color := white;                      {выбираем цвет с помощью описанной в библиотеке константы white}
    setfillstyle(1, color);              {устанавливаем "нужный" цвет и способ "штриховки" при заливке - ничего не происходит}
    floodfill(0,0,red);                  {"заливаем" экран нужным цветом - установленным цветом заливки, 
                                         пока не наткнёмся на красный, которого нет } 
    ...                                  {Можно что-то рисовать}