Вывести все содержащиеся в массиве нечетные числа в порядке возрастания их индексов

uses crt;
const nmax=1000;
var a:array[1..nmax] of integer;
    n,i,k:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until (n>0)and(n<=nmax);
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=random(50);
  write(a[i]:4);
 end;
writeln;
writeln;
writeln('Нечетные числа в порядке возрастания индексов');
k:=0;
for i:=1 to n do
if odd(a[i]) then
 begin
  write(a[i]:4);
  k:=k+1;
 end;
writeln;
write('Их количество=',k);
readln
end.

uses crt;
const nmax=1000;
var a:array[1..nmax] of integer;
    n,i,k:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until (n>0)and(n<=nmax);
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=random(50);
  write(a[i]:4);
 end;
writeln;
writeln;
writeln('Четные числа в порядке убывания индексов');
k:=0;
for i:=n downto 1 do
if a[i] mod 2=0 then
 begin
  write(a[i]:4);
  k:=k+1;
 end;
writeln;
write('Их количество=',k);
readln
end.

uses crt;
const nmax=1000;
var a:array[1..nmax] of integer;
    n,i:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until (n>0)and(n<=nmax);
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=random(50);
  write(a[i]:4);
 end;
writeln;
writeln;
writeln('Четные числа в порядке возрастания индексов');
writeln('Нечетные числа в порядке убывания индексов');
for i:=1 to n do
if a[i] mod 2=0 then  write(a[i]:4);
for i:=n downto 1 do
if a[i] mod 2<>0 then write(a[i]:4);
readln
end.

uses crt;
const nmax=1000;
var a:array[1..nmax] of integer;
    n,i:byte;
    k:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until (n>0)and(n<=nmax);
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=random(50);
  write(a[i]:4);
 end;
writeln;
write('Введите число для проверки кратности индексов массива k=');
readln(k);
if abs(k)>n then write('Нет индексов, кратных ',k)
else
 begin
  i:=0;
  while i<n do
   begin
    i:=i+k;
    write(a[i]:4);
   end;
 end;
readln
end.