массивы

[nazamat]

помогите пожалуйста с этой задачей(
Часть 1, вычислить значения 38 элементов одномерного целочисленного массива Х в интервале (-10;6), с использованием генератора случайных чисел
я его как бы сделал:

Program Work_4;

Type vector=array[1..100] of integer;
var Vx, n, i, a, b: integer;
X: vector;
Dev : text;
name: string;
Sg: real;

Procedure Part_1(Vr,n,a,b:integer; var X:vector);
var i:integer;
Begin
If Vx<>1 then randomize;
for i:=1 to n do x:=a+Round((b-a)*Random(100)/100);
end;

Часть 2.
Вычислить среднегармоническое значение каждых третьих элементов последней четверти
Часть 3.
Определить наибольший по абсолютной величине среди четных по значению элементов первой трети массива
Часть 4.
Упорядочить ненулевые элементы первой половины массива по возрастанию квадратов значений

[GetMax]

Часть3

Function Maximum(N:Integer; Var V:Vector):Integer;
Var
  i,max:Integer;
Begin
   Max:=Low(Integer);
   For i:=1 to Trunc(N mod 3) do
   Begin
      If (Abs(V[i]) > Abs(Max)) and (V[i] mod 2 = 0) then Max:=V[i]
   End;
   Maximum:=Max
End.

[nazamat]

напишите пожалуйста вот эту часть:
Часть 2.
Вычислить среднегармоническое значение каждых третьих элементов последней четверти