в одномерном массиве А(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.