Для заливки замкнутого контура используется процедура
На каком языке? Turbo Pascal? FloodFill(); procedure FloodFill( x: SmallInt; y: SmallInt; Border: Word);