Найти в последовательности последнее нечётное число, которое меньше предыдущего нечётного числа

begin
  var n:= ReadInteger('Введите n:');
  var DataSet:= Range(1, n).Select((x, i) -> ReadInteger('Введите число с индексом[' + i.ToString() + ']:')).ToArray();
  System.Console.WriteLine('Минимальное, последнее нечетное число, которое меньше предыдущего нечётного числа из набора: {0}= {1}', string.Concat(DataSet.Select(x -> x.ToString() + '; ')), DataSet.Where(x -> (x and 1) = 1).Where((x, i) -> not (i = 0)).Min());
end.

var Dataset := Arr(2, 4, 7, 3, 6, 8, 2, 9, 4, 15, 6, 8, 9);

begin
  var n:= ReadInteger('Введите n:');
  var DataSet:= Range(1, n).Select((x, i) -> ReadInteger('Введите число с индексом[' + i.ToString() + ']:')).ToArray();
 
  // Это тестировались разные входные данные, включая такие, которые вообще не содержат искомых чисел
  // var DataSet := Arr(2, 4, 7, 3, 6, 8, 2, 9, 4, 5, 6, 8, 9);
  // var DataSet := Arr(1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
  var Odds := DataSet.Where(x -> Odd(x)).ToArray();
  writeln(Odds.Where((x, i) -> (i > 0) and (Odds[i - 1] > x)).Select(x -> IntToStr(x)).ToArray().DefaultIfEmpty('Нет таких значений').LastOrDefault());
end.