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

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

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

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

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

Var m,min:real;
    i,n,imin:integer;
Begin
    Repeat
      write('Количество чисел для ввода: ');
      readln(n);
    Until n>0;
    writeln('Введите ',n,' чисел');
    imin:=0;
    For i:=1 to n do
    Begin
      read(m);
      if (m>0)and(imin=0) then
      Begin
        imin:=i;
        min:=m;
      End;
      if (m>0)and(m<min) then
      Begin
        imin:=i;
        min:=m;
      End;
    End;
    if imin > 0 then writeln('Индекс минимального положительного числа = ',imin)
     else writeln('Нет положительных чисел');
End.

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

В данном коде объявлены следующие переменные:

m - переменная типа real (число с плавающей точкой), которая будет использоваться для чтения чисел с клавиатуры.
min - целочисленная переменная, которая будет использоваться для хранения индекса наименьшего положительного числа.
i - целочисленная переменная, которая будет использоваться для перебора чисел в последовательности.
n - целочисленная переменная, которая будет использоваться для хранения количества чисел, введенных пользователем.
imin - целочисленная переменная, которая будет использоваться для хранения индекса первого положительного числа. Код начинается с запроса у пользователя количества чисел, которые он хочет ввести. Затем происходит цикл, в котором каждое число с клавиатуры проверяется на положительность и, если оно положительное и меньше текущего минимального числа, обновляется индекс минимального числа и само минимальное число. Если в конце цикла найдено положительное число, то выводится его индекс. Если положительных чисел нет, выводится сообщение об этом.