Найти длину наименьшего отрезка числовой прямой в массиве - Pascal ABC

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

Дан линейный массив, содержащий N целых чисел. Нужно найти длину наименьшего отрезка числовой прямой, содержащего все положительные элементы масcива. Заранее благодарен.

Решение задачи: «Найти длину наименьшего отрезка числовой прямой в массиве»

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

max:=0;
min:=maxint;
for i:=1 to n do
 begin
  if a[i]>max then max:=a[i];
  if(a[i]>0)and(a[i]<min) then min:=a[i];
 end;

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

Создаются две переменные: max и min. Переменная max инициализируется значением 0, а переменная min инициализируется максимальным возможным значением для типа данных int (назовем его maxint).
Затем следует цикл for, который выполняется от 1 до n (где n - это количество элементов в массиве a).
В каждой итерации цикла проверяется, если текущий элемент a[i] больше значения max, то max обновляется значением a[i]. Это нужно для того, чтобы найти максимальное значение в массиве.
Также в каждой итерации проверяется, если текущий элемент a[i] положительный и меньше значения min, то min обновляется значением a[i]. Это нужно для того, чтобы найти минимальное значение в массиве.
После завершения цикла min будет содержать наименьшее значение из массива a, а max будет содержать наибольшее значение из массива a.