В целочисленном массиве найти первое с конца нечётное число - Turbo Pascal

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

в целочисленном массиве найти первое с конца не чётное число

Решение задачи: «В целочисленном массиве найти первое с конца нечётное число»

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

const
  size = 10;  {размер массива}
 
var
  x: array [1..size] of integer;
  i, k: byte;
 
begin
  Randomize;
  k := 0;
  for i := 1 to size do
  begin
    x[i] := Random(21);
    Write(x[i], ' ');
    if Odd(x[i]) then
      k := x[i]
  end;
  WriteLn;
  WriteLn('Поселедний нечетный элемент: ', k);
  {k = 0 если в массиве нет нечетных элементов}
  ReadLn
end.

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

В начале объявляются две переменные: размер массива size и сам массив x типа array [1..size] of integer. Также объявляются две байтовые переменные i и k для итерации по массиву и хранения найденного нечетного числа.
Затем вызывается функция Randomize, чтобы инициализировать генератор случайных чисел.
Переменная k инициализируется значением 0.
Затем идет цикл for, который выполняется от 1 до size. Внутри цикла каждый элемент массива x[i] инициализируется случайным числом от 0 до 20 с помощью функции Random(21).
После каждой итерации цикла значение x[i] и его нечетный флаг Odd(x[i]) выводятся на экран с помощью функции Write().
Если в массиве найдено нечетное число, то оно сохраняется в переменной k.
В конце выводится сообщение с найденным нечетным числом и вызывается функция ReadLn(), чтобы перейти к следующему вводу.
Конец программы.