в одномерном массиве А(10) найти значение и индекс наименьшего из положительных элементов .решение паскаль

const  n = 10;var  i: byte;  min: real;  imin: integer;  a: array[1..n] of real;begin  writeln('Введите числа');  for i := 1 to n do    read(a[i]);  min := a[1];  for i := 2 to n do    if min > a[i] then min := a[i];  for i := 1 to n do    if a[i] = min then      imin := i;  writeln('Минимальное значение = ', min);  writeln('Элемент = ', imin);end.