У меня нет возможности проверить программу, так что пишу навскидку
Продолжение: (вставить между последним кц и кон)
нц пока снизу свободно
вниз
если снизу стена
то закрасить
все
кц
нц пока слева свободно
влево
если слева стена
то закрасить
все
кц
нц пока сверху свободно
вверх
если сверху стена
то закрасить
все
кц
нц пока слева свободно
влево
если слева стена
то закрасить
все
кц
нц пока сверху свободно
вверх
если сверху стена
то закрасить
все
кц
нц пока слева свободно
влево
если слева стена
то закрасить
все
кц
нц пока снизу свободно
вниз
если снизу стена
то закрасить
все
кц
Проверьте, должно работать..даже, осмелюсь сказать, что это не может не работать