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

var x:array[1..50] of integer;
x2:array[1..50] of integer;
n,i,k,c,j,p,kol,kon,min,min2,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 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 k<min then
begin
min:=dlina; kon_min:=kon;
end;
end;
if kol>0 then
writeln('min=',min)
else writeln('Нет серий');
 
 
//Нахождение и удаление первых двух простых чисел
c:=0;
j:=0;
p:=0;
repeat
inc(j);
inc(p);
k:=0;
for i:=2 to x[j] div 2 do
if x[j] mod i =0 then inc(k);
 if k=0 then 
begin
inc(c);
end
else
x2[p]:=x[j];
until c=2;
 
for i:=j+1 to n do
x2[p]:=x[j];
for i:=1 to  n do 
write(x[i],' ');
 
 
 
// Повторное нахождение мин. серии нечетных элементов
k:=0; { Длина серии. }
kol:=0; { Количество серий в массиве. }
min2:=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 k<min2 then
{Если длина текущей серии меньше,}
begin
{то объявляем ее минимальной.}
min2:=dlina; kon_min:=kon;
end;
end;
{Если текущий элемент массива четное число, 
то количество подряд встречающихся нечетных чисел 
начинаем считать сначала (k:=0).}
k:=0; 
end;
{Проверка, не было ли серии в конце массива. }
if k>0 then
{ Если да, увеличить счетчик еще на единицу. }
begin
kol:=kol+1;
{Серия закончилась на последнем элементе}
kon:=n; dlina:=k;
{Обработка последней серии так, 
как это происходило в цикле.}
if k<min2 then
begin
min2:=dlina; kon_min:=kon;
end;
end;
if kol>0 then
writeln('min=',min2)
else writeln('Нет серий');
// cравниваем серии до и после удаления
if min<>min2 then 
writeln('Izmenilas')
else writeln('Ne izmenilas');
end.

var 
mas:array[1..100] of integer;
i,j,b,n,k,kmin,nmin,emin,posp,c,kmin2,nmin2,emin2:integer;
BEGIN
readln(n);
k:=0;
kmin:=0;
kmin2:=0;
for i:=1 to n do
readln(mas[i]);
for i:=1 to n do
begin
if (mas[i] mod 2 =1) and (i=n)then
inc(k);
if (mas[i] mod 2 =1) and (i<>n)then
inc(k)
else
begin
 
if (k>1)then
    if (kmin>k) or (kmin=0) then
    begin
        kmin:=k;
        nmin:=i-k;
        emin:=i-1;
    end;
    
k:=0;
end;
end;
writeln('Самая маленькая серия:');
for i:=nmin to emin do
write(mas[i],' ');
for i:=1 to 2 do
begin
for j:=n downto 1 do
begin
    b:=0;
    for c:=2 to mas[i]-1 do
    begin
        if (mas[i] mod c=0) then
        b:=1;
    end;
    if (b=0) then
    posp:=j;
end;
for j:=posp to n-1 do
begin
    c:=mas[j];
    mas[j]:=mas[j+1];
    mas[j+1]:=c;
end;
end;
writeln;
writeln('Первые два простых числа:');
for i:=n-1 to n do
write(mas[i],' ');
writeln;
writeln('Массив после удаления:');
for i:=1 to n-2 do
write(mas[i],' ');
writeln;
k:=0;
for i:=1 to n-2 do
begin
if (mas[i] mod 2 =1) then
k:=k+1
else
begin
if (k>1) then
    if (kmin2>k) or (kmin2=0) then
    begin
        kmin2:=k;
        nmin2:=i-k;
        emin2:=i-1;
    end;
k:=0;
end;
end;
if (kmin2<>kmin) or (mas[nmin2]<>mas[nmin]) or (mas[emin2]<>mas[emin]) then
begin
    writeln('Да, минимальная серия или её позиция изменилась и теперь она такая:');
    for i:=nmin2 to emin2 do
    write(mas[i],' ');
end
else
    writeln('Нет, минимальная серия не изменилась');
END.

program task;
const a=-10;b=10;
var x:array[1..255]of smallint;
    i,n,res,j,j1:byte;
begin
    res:=255;
    Randomize;
    Write('N = '); ReadLn(n);
    Write('X =');
    for i:=1 to n do begin
        x[i]:=random(b-a+1)+a; Write(x[i]:4);
    end; WriteLn;
    for i:=1 to n do begin
        if((x[i]mod 2<>0)and(x[i+1]mod 2<>0))then inc(j)
        else begin
            j1:=j; j:=0;
        end;
        if((j1<res)and(j1<>0))then res:=j1+1;
    end;
    if(res=255)then res:=0;
    WriteLn('RES =',res:4);
end.