Смотрите. Тут правда есть немного лишнего. Противоположные стороны всё таки проверять не надо. Хватит 4х углов. Но текст комментирован, лишнее можно убрать. поясняющих картинок нет. но вопрос и так слишком долго живёт без ответа. Мне казалось срок жизни 2-3 дня максимум, а тут 5 дней минуло.
Если что, отправляйте на исправление. дома дорисую.
Главное программа работает. Правда есть подозрения, что не во всех Паскалях (как они относятся к объявлению массива массивов?)
Это был Free Pascal Compiler version 2.6.4 [2014/04/20] for i386
В версии 3.0.0. думаю, тоже сработает
P.S.Добавил возможные варианты (не все, ясное дело) расположения точек.
32=2^5, значит 1 символ весит 5 бит.
20*10*3=600 символов
600/5=125 бит
так как в байте 8 бит, 125/8=15.625, то есть 16 байт (округляем в бОльшую сторону)
Если не ошибаюсь способов 2
128 - 1000 0000
256 - 1 0000 0000
512 - 10 0000 0000
1024 - 100 0000 0000