Смотрите. Тут правда есть немного лишнего. Противоположные стороны всё таки проверять не надо. Хватит 4х углов. Но текст комментирован, лишнее можно убрать. поясняющих картинок нет. но вопрос и так слишком долго живёт без ответа. Мне казалось срок жизни 2-3 дня максимум, а тут 5 дней минуло. Если что, отправляйте на исправление. дома дорисую. Главное программа работает. Правда есть подозрения, что не во всех Паскалях (как они относятся к объявлению массива массивов?) Это был Free Pascal Compiler version 2.6.4 [2014/04/20] for i386 В версии 3.0.0. думаю, тоже сработает
P.S.Добавил возможные варианты (не все, ясное дело) расположения точек.
1) (Имя файла /= "PR1.TXT" и Размер = 156 Кb) или Дата изменения /= 25.06.06 ⇒ ("PR1.TXT" /= "PR1.TXT" и 156 Кb = 156 Кb) или 25.06.06 /= 25.06.06 ⇒ (Ложь и Истина) или Ложь ⇒ Ложь или Ложь ⇒ Ложь
2) (Имя файла = "PR1.TXT" или Размер / = 156 Кb) и Дата изменения = 25.06.06 ⇒ ("PR1.TXT" = "PR1.TXT" или 156 Кb / = 156 Кb) и 25.06.06 = 25.06.06 ⇒ (Истина или Ложь) и Истина ⇒ Истина и Истина ⇒ Истина
3) (Имя файла = "PR1.TXT" или Размер = 156 Кb) или Дата изменения = 25.06.06 ⇒ ("PR1.TXT" = "PR1.TXT" или 156 Кb = 156 Кb) или 25.06.06 = 25.06.06 ⇒ (Истина или Истина) или Истина ⇒ Истина или Истина ⇒ Истина
4) (Имя файла = "PR1.TXT" и Размер = 156 Кb) и Дата изменения /= 25.06.06 ⇒ ("PR1.TXT" = "PR1.TXT" и 156 Кb = 156 Кb) и 25.06.06 /= 25.06.06 ⇒ (Истина и Истина) и Ложь ⇒ Истина и Ложь ⇒ Ложь
Если что, отправляйте на исправление. дома дорисую.
Главное программа работает. Правда есть подозрения, что не во всех Паскалях (как они относятся к объявлению массива массивов?)
Это был Free Pascal Compiler version 2.6.4 [2014/04/20] for i386
В версии 3.0.0. думаю, тоже сработает
P.S.Добавил возможные варианты (не все, ясное дело) расположения точек.