Найти минимальный элемент среди элементов, имеющих четный индекс — Pascal(Паскаль)

var
a:array[1..100]of integer;
n,i,minc,minn:integer;
begin
writeln('vvedite kol-vo elenentov');
readln(n);
writeln('vvedite elementy:');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
writeln('massiv');
for i:=1 to n do
write(a[i],' ');
writeln;
minc:=2;
minn:=1;
for i:=1 to n do
begin
if (i mod 2=0)and(a[i]<a[minc])then minc:=i;
if (i mod 2<>0)and(a[i]<a[minn])then minn:=i;
end;
writeln('min sredi elementov s chetnymi indeksami=',a[minc]);
writeln('min sredi elementov s nechetnymi indeksami=',a[minn]);
if minc<minn then begin
n:=minc;
minc:=minn;
minn:=n;
end;
writeln('novyj massiv');
for i:=1 to n do
begin
if (i>minn)and(i<minc)then a[i]:=0;
write(a[i],' ');
end;
readln;
end.