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