Найти разность максимального и минимального положительных четных чисел массива Т(12) - Free Pascal

Формулировка задачи:

помогите

Решение задачи: «Найти разность максимального и минимального положительных четных чисел массива Т(12)»

Листинг программы

const n=12;
var
  t:array[1..n] of integer;
  i,imin,imax:integer;
begin
  write('введите массив T:');
  imin:=maxint;imax:=-1;
  for i:=1 to n do begin
    read(t[i]);
    if (t[i] mod 2=0) and (t[i]>0) then begin
      if t[i]>imax then imax:=t[i];
      if t[i]<imin then imin:=t[i];
    end;
  end;
  if imin=maxint then writeln('Нет положительных четных чисел') else
  writeln('разность максимального и минимального положительных четных чисел =',imax-imin);
end.

Объяснение кода листинга программы

Объявляются переменные: — n — размер массива (12); — t — массив для хранения чисел; — i — счётчик для цикла; — imin, imax — для хранения минимального и максимального положительного четного числа соответственно.
Выводится сообщение с просьбой ввести массив T.
Задаются начальные значения imin и imax.
Происходит обход массива с помощью цикла.
Проверяется, является ли текущее число положительным четным. Если да, то оно сравнивается с текущими значениями imin и imax.
Если текущее число больше imax, то оно становится новым imax.
Если текущее число меньше imin, то оно становится новым imin.
После завершения цикла выводится сообщение о наличии или отсутствии положительных четных чисел в массиве.
Если положительные четные числа есть, выводится их разность (imax-imin).