получение массива из элементов исходного массива, стоящих на нечетных местах

program hhh;
Uses crt;
 Var x,y:array [1..100] of integer;
     i,n,k:integer;
begin
clrscr;
Writeln (' Vvedite kol - vo elementov ');
Readln (n);
 for i:=1 to n do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (x[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:3);
writeln;
k:=0;
for i:=1 to n do
   if i mod 2 <> 0 then begin
                       k:=k+1;
                       y[k]:=x[i];
                       end;
Writeln (' OTBET ');
for i:=1 to k do
  write (y[i],' ');
REadln
end.

program hhh;
Uses crt;
 Var x:array [1..100] of integer;
     i,n,min:integer;
begin
clrscr;
Writeln (' Vvedite kol - vo elementov ');
Readln (n);
 for i:=1 to n do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (x[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:3);
writeln;
min:=x[i];
for i:=1 to n do
   if x[i] mod 2 <> 0 then
     if x[i]<=min then min:=x[i];
Writeln (' OTBET =',min);
REadln
end.