Дан массив A размера N найти минимальный элемент из его элементов с нечетными номерами А1, А3, А5

Const N=10;

var i, m: integer;

a: array [1 ... N] of integer;

begin

for i : = 1 to N do

begin

a[i] : = random (50) - 25;

writeln ('[', i, '] = > ', a[i]) ;

end;

i : = 1;

while (i < = N) do

begin

if (m > a[i]) then m : = a[i];

i : = i + 2;

end;

writeln (m) ;

end.