Pascal/Turbo Pascal - cono rellenar rectangulos con color

Trate de hacerlo con el procedimiento "FloodFill()" como me lo dijo Diego... pero solo puedo rellenar circulos y si es con ese me podrias explicar como se hace???

para rellenar un rectangulo es el mismo procedimiento. Debes indicarle un punto interior al rectangulo y el color del borde, y lo rellenara de acuerdo al estilo que le hayas indicado en SetFillStyle.

Lo que pasa es que no usas el procedimiento adecuado, lo que tu estas buscando es bar

que funciona igual que el rectangle pero el area interna del rectangulo lo rellena con el patron que especificas con setfillstyle

bar(x,y,x1,y1);