Найти наименьший положительный элемент и его номер в массиве - Turbo Pascal

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

1) Дан одномерный массив, который содержит не более 40 положительных и отрицательных целых чисел. Найти наименьший положительный элемент и его номер в массиве. Помогите решить, буду очень благодарен.

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

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

uses crt;
var a:array [1..100] of integer;
i,min,q,n:integer;
begin
clrscr;
randomize;
min:=40;
repeat
write('Введите кол-во элементов массива(n<=40)=');readln(n);
until n<=40;
for i:=1 to n do
  begin
     a[i]:=random(40)-20;
     write(a[i]:4);
   end;
writeln;
for i:=1 to n do
   if a[i]>0 then
       if a[i]<min then begin min:=a[i];q:=i;end;
writeln('Наименьший положительный элемент =',min,', его номер в массиве=',q);
readkey;
end.

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

В этом коде используется Turbo Pascal. Он создает массив из 100 чисел и заполняет его случайными числами от -20 до 20. Затем он просит пользователя ввести количество элементов в массиве, которое не должно превышать 40. Затем цикл повторяется, пока пользователь не введет число, не превышающее 40. В каждой итерации цикла программа случайным образом заполняет массив числами от -20 до 20. Далее программа проверяет каждый элемент массива на положительность. Если элемент положительный и меньше текущего минимального положительного элемента, то он обновляет значения переменных min и q. В конце программа выводит на экран наименьший положительный элемент и его номер в массиве. Код не использует вложенные списки.