Сначала сформировать массив из n случайных целых чисел (положительных и отрицательных) .Найти наименьший положительный элемента среди элементов с четными номерами массива .

Const
n = 10;
var
a:array[1..n] of integer;
i,g,min:integer;
begin
min:= 9999;
randomize;
for i:= 1 to n do
 a[i]:= random(1000)-500;
write(Элементы массива равны:);
for i:= 1 to n do
write( a[i], );
for i:=1 to n div 2 do
begin
 g:=i*2;
if a[g]min:= a[g];
end;
writeln(Минимальный элемент мвссива: , min);
 end.