Помогите решить задачу,пожалуйста!!!вторую часть не могу решить.

[Родион Афанасьев]

Разработка в среде Turbo Pascal программы поиска двух ближайших элементов в массиве.
Дан целочисленный массив размера N.
1. Найти номера двух ближайших элементов из этого массива (то есть элементов с наименьшим модулем разности) и вывести эти номера в порядке возрастания.
2. Упорядочить нечетные по значению элементы второй четверти массива по убыванию обратных значений.
Для отладки программы исходный массив сформировать с помощью генератора случайных чисел.

program H_2o;
uses crt;
var
a: array[1..100] of integer;
i,j, n,x,index,del_min,del,v: integer;
begin
randomize;
write ('Введите размер массива до  100');
readln (n);
writeln ('Массив');
for i:=1 to n do
    begin
    a[i] := random(71);
    write(a[i]:4);
    end;
writeln;
index:=1;
del_min:=abs(a[1]-a[2]);
for i:=2 to n-1 do
begin
  del:= abs(a[i]-a[i+1]);
    if del < del_min then
     begin
       del_min:=del;
       index:=i;
     end;
 end;
Writeln('1)Индексы двух ближайших элементов', index:4,(index+1):4);
v:=n div 4;
for i:=v+1 to 2*v-1 do
for j:=i+1 to 2*v do
if(a[i] mod 2 =1)and(a[j] mod 2 =1)and (1/a[i]<1/a[j]) then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
Writeln('2) Массив после сортировки ');
for i:=1 to n do  write(a[i]:4);
readln ;
end.

вторая часть написана, но она не работает

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[СтудПом]

Сообщение от Родион Афанасьев

Упорядочить нечетные по значению элементы второй четверти массива

Ух, злобный препод
Попробуйте написать процедуру сортировки. Используйте любой метод, проще, наверное, будет метод пузырька. Потом посмотрите код - у вас будет цикл вложенный в другой цикл. Тела циклов вложите в if ... then, который проверяет не-чётность значения текущего элемента.