составить алгоритм. Пользователь вводит два числа. Одно присваивается одной переменной, а второе - другой. Необходимо поменять значения переменных так, чтобы значение первой оказалось во второй, а второй - в первой.

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 ⇒
(Истина и Истина) и Ложь ⇒ Истина и Ложь ⇒ Ложь

ответ: 2), 3)

Смотрите. Тут правда есть немного лишнего.  Противоположные стороны всё таки проверять не надо. Хватит 4х углов. Но текст комментирован, лишнее можно убрать.  поясняющих картинок нет. но вопрос и так слишком долго живёт без ответа. Мне казалось срок жизни 2-3 дня максимум, а тут 5 дней минуло.
Если что, отправляйте на исправление. дома дорисую.
Главное программа работает. Правда есть подозрения, что не во всех Паскалях (как они относятся к объявлению массива массивов?)
Это был Free Pascal Compiler version 2.6.4 [2014/04/20] for i386
В версии 3.0.0. думаю, тоже сработает

P.S.Добавил возможные варианты (не все, ясное дело) расположения точек.