Вывести все содержащиеся в данном массиве нечетные числа в порядке убывания их индексов - PascalABC.NET

Формулировка задачи:

Добрый вечер. Помогите с задачей ,плиз. Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве нечетные числа в порядке убывания их индексов, а также их количество K. {N =10 . У меня не получается найти К}

const 
  
 n=10;
   
var
  i,s:integer;
  c:array[1..n] of integer;
  k:integer;
begin

  for i:=1 to n  do begin
  c[i]:=i;
 if c[i] mod 2=1 then 
   
     writeln('результат:',C[i]);
     
     if c[i] mod 2=1 then c[i]:=k;
    writeln ('',k);
  end;
 
end.

Решение задачи: «Вывести все содержащиеся в данном массиве нечетные числа в порядке убывания их индексов»

Листинг программы

const
  n = 10;
 
var
  i: integer;
  c: array[1..n] of integer;
  k: integer;
 
begin
  k := 0;
  for i := n downto 1 do 
  begin
    c[i] := Random(100);
    if c[i] mod 2 = 1 then 
    begin
      write(' A[',i,']=',C[i]:3);
      inc(k);
    end;
  end;
  writeln;
  writeln('k = ', k);
end.

Объяснение кода листинга программы

В этом коде:

Объявляются следующие переменные:
- n - количество элементов в массиве (10);
- i - счётчик, используемый в цикле;
- c - массив, в котором будут храниться числа;
- k - счётчик, который будет увеличиваться, если число в массиве нечётное.
Заполняются элементы массива числами от 0 до 99 с помощью функции Random.
В основном цикле перебираются элементы массива в порядке убывания их индексов.
Если элемент массива нечётный, то он выводится на экран, а значение переменной k увеличивается на 1.
После окончания цикла выводится на экран значение переменной k.