исправить
Напишите программу, которая находит минимальный и максимальный элементы из элементов матрицы с четными положительными значениями и их индексы. учтите, что таких элементов в матрице может и не быть.
begin
var m:=ReadInteger('Число строк=');
var n:=ReadInteger('Число стролбцов=');
var a:=MatrixRandom(m,n,-99,99);
var imax:=-1; var jmax:=0;
var imin:=0; var jmin:=0;
var min:=100; var max:=-100; // больше большего, меньше меньшего
for var i:=0 to m-1 do begin
for var j:=0 to n-1 do begin
Write(a[i,j]:4);
if (a[i,j]>0) and (a[i,j] mod 2=0) then begin
if a[i,j] if a[i,j]>max then begin imax:=i; jmax:=j; max:=a[i,j] end
end
end;
Writeln
end;
if imax<>-1 then begin
Writeln('Минимальный четный положительный элемент A[',
imin+1,',',jmin+1,']=',a[imin,jmin]);
Writeln('Максимальный четный положительный элемент A[',
imax+1,',',jmax+1,']=',a[imax,jmax])
end
else
Writeln('В массиве нет положительных четных элементов')
end.

Тестовое решение
Число строк= 5
Число стролбцов= 8
-59 98 55 -92 -98 68 5 -82
63 49 41 7 51 22 55 -4
-78 42 -35 -60 -6 -15 -34 -28
-14 55 -44 22 74 -50 -98 85
50 2 65 39 -47 -59 -7 -87
Минимальный четный положительный элемент A[5,2]=2
Максимальный четный положительный элемент A[1,2]=98

1-Файл- создать. Я поставила  размер 400 на 200.

2-Редактирование-выполнить заливку. Залить черным цветом.

3- Выбрать инструмент "текст",  установить параметры текста: шрифт, размер шрифта, цвет.

4-Написать слово  "Поздравляю", теперь нажать Enter на клавиатуре, чтобы второе слово было ниже, и продолжить писать " с праздником!"

5- В окне слоев кликнуть правой кнопкой мыши по слою с текстом

и, в появившемся окошке, выбрать " растрировать текст".

6- Еще раз по слою правой кнопкой мыши и выбрать "создать дубликат слоя".

7-Отключить глазок на нижележащем слое с текстом.

8-Выбрать инструмент ластик,   жесткость 100%, размер 13.

и стереть восклицательный знак.

9-В окне слоев, кликнув по верхнему слою, снова выбрать "создать дубликат слоя"

10-Отключить глазок на предыдущем слое

и стереть ластиком букву "м".

11- Повторять эти действия и дальше. Вот как будет выглядеть окно слоев и картинка, когда сотрете нижнее слово.

12-Теперь стираем таким же образом слово "поздравляю".

Переходим в окно анимации.

13-В окне анимации, нажать на значок, состоящий из четырех полос, который открывает диалоговое окно ( в других версиях фотошопа будет маленький черный треугольник)

и выбрать " создать кадры из слоев".

14-В окне анимации удалить первый черный  кадр ( нажать на него и тащить в корзину), он не нужен.

15-В окне анимации кликнуть по первому кадру и, нажав на Shift ,кликнуть по последнему кадру,чтобы выделить все кадры.

16-Все кадры выделены, теперь поставим время на кадрах 0, 2 сек. Выделение не снимать.

17-В окне слоев включить глазок на нижнем слое с черным фоном.

18-В окне анимации (все кадры остаются выделенными), нажать на значок, открывающий диалоговое окно, и выбрать "обратный порядок кадров.

19- Кликнуть по последнему кадру и поставить там время 2 сек.

Теперь можно смотреть анимацию и сохранять в формате Gif.

20-Файл-сохранить для Web и устройств (для последних версий фотошопа- Файл-экспортировать-сохранить для web).

∧ - логическое ИЛИ, ∨ - логическое И, ¬ - не что-то.

А и В принимают значения 0 (ложь) и 1 (истина) (здесь нам это не дано, надо просто сократить).

(A∧ ¬B)∨(¬A∧B)∧(A∨B) это

(A или не В) и (не А или В) или (А и В),

далее: (первые две скобки сократим, в данном случае надо чтобы хотя бы А или В имели любое значение)

(А или В) или (не А или не В) или (А и В)

то есть:

(А ∧ В) ∧ (¬А ∧ ¬В) ∧ (А ∨ В)

(но зачем нам А и В, когда есть А или В, то есть А и В становится бесполезным выражением, когда есть выражение, которому надо всего одно истинное значение)

и так:

(А или В) или (не А или не В)

то есть выражение всегда будет истинно, так как какое бы значение и имели А , В - выражение истинно.

Можно заменить это следующим:

А или не А или В или не В

А ∧ ¬А ∧ В ∧ ¬В

готово, а главное выражение всегда истинно!