Можно организовать двумерный массив:massiv:array[0..6,0..23] of bool;
Тогда проще с визуализацией будет. Всего два значения: день и час + кнопка инверсии (изменения текущего значения) и кнопка для записи значения в массив. Имейте в виду, что в Кодесис день недели "Воскресенье" не 7, а 0.
В программе к элементу массива обращаться так: massiv[0,10]:=value;, что означает "Воскресенье 10 часов".
В качестве индексов массива можно использовать переменные.
value:=massiv[day,hour];