В заданном массиве целых чисел, найти самую маленькую серию подряд стоящих нечетных элементов

program aa;
const
  n = 9;
  d = 9;
 
var
  a: array[1..9] of integer;
  i, k, min: integer;
 
begin
  for i := 1 to n do
    read(a[i]);
  readln;
  k := 0;
  min := d;
  for i := 1 to n do
    repeat
      if a[i] mod 2 = 1 then
        k := k + 1;
      
    until a[i] < n;
  if min > k then
    min := k;
  write('min=', min);
end.

var x:array[1..50] of integer;
n,i,k,kol,kon,min,kon_min,dlina:integer;
begin
write('n=');
readln(n);
writeln('Массив Х');
for i:=1 to n do
read(x[i]);
k:=0; { Длина серии. }
kol:=0; { Количество серий в массиве. }
min:=9;
for i:=1 to n do
if x[i] mod 2 = 1 then
k:=k+1
else
begin
{ проверяем, была ли серия до этого, k>0?}
if k>0 then
{Если только что оборвалась серия, то}
begin
{увеличиваем количество серий.}
kol:=kol+1;
{Фиксируем тот факт, что на предыдущем 
элементе серия закончилась,}
kon:=i-1;
{Длина серии равна k.}
dlina:=k;
{Если это первая серия,}
if kol=1 then
{объявляем ее минимальной.}
begin
{Длина минимальной серии единиц.}
min:=dlina;
{Конец минимальной серии, состоящей из
 единиц, хранится в переменной kon_min.}
kon_min:=kon;
end
{Если это не первая серия, 
состоящая из нечетных элементов,}
else
{то ее длину сравниваем с длиной серии 
с минимальным количеством нечетных элементов.}
if k<min then
{Если длина текущей серии меньше,}
begin
{то объявляем ее минимальной.}
min:=dlina; kon_min:=kon;
end;
end;
{Если текущий элемент массива четное число, 
то количество подряд встречающихся нечетных чисел 
начинаем считать сначала (k:=0).}
k:=0; 
end;
{Проверка, не было ли серии в конце массива. }
if k>0 then
{ Если да, увеличить счетчик еще на единицу. }
begin
kol:=kol+1;
{Серия закончилась на последнем элементе}
kon:=n; dlina:=k;
{Обработка последней серии так, 
как это происходило в цикле.}
if kol=1 then
begin
min:=dlina; kon_min:=kon;
end
else
if k<min then
begin
min:=dlina; kon_min:=kon;
end;
end;
if kol>0 then
writeln('min=',min)
else writeln('Нет серий')
end.