Пожалуйста, помогите с массивами

[languor_una]

Не первый день бьюсь над заданием курсовой работы, нашла ошибки и ума не приложу, как их исправить.
1.Вычислить значения 34 элементов одномерного целочисленного массива в интервале(-10.10) с использованием генератора случайных чисел.
2. Вычеслить среднегармоническое значение нечетных по значению элементов второй четверти массива.
3. Определить наименьший по модулю элемент среди ненулевых элементов всего массива.
4. Упорядочить отрицательные элементы первой четверти массива по убыванию модулей обратных значений.
Пожалуйста, помогите с массивами

3 пункт будет правильным, если повезет выпасть 1 в первой четверти массива, а четвёртый просто вместо того что бы упорядочить выдает элементы массива, буду благодарна если найдете еще ошибки.

var a:array[1..100] of integer;
    n,m,i,j,k,t,min,x:integer;
    b,sg,s:real;
begin
n:=34;{заполняем массив}
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(20)-10;
  write(a[i]:4);
 end;
 writeln;
 for i:=1 to n do  {ищем среднегармоническое  значение }
t:=n div 4; 
for i:=2*t+1 to 3*t do 
if a[ i ] mod 2 <> 0 then 
for j := 1 to n do 
s := s + (1 / a[i]);
sg:=s+a[ i ]; 
s := n / s;
writeln('Sg = ',sg); 
 writeln;
  for i:=1 to n do {наименьший по модулю элемент среди ненулевых элементов всего массива.  }
 if a[i]<>0 then
 min:=n;
 if abs(a[i])< min then
 min:=a[i];
 writeln('min = ',min); 
 writeln;
for i:=t+1 to 3*t do {. Упорядочить отрицательные элементы первой четверти массива по убыванию модулей обратных значений. }
for j:=i+1 to n do
if(a[i]<0)and(a[j]<0)and(abs(1/a[i])<abs(1/a[j]))then
 begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
write(x:4);
end;
end.