Delphi: задачка на массив - нужно дописать.

[Sorinka]

Дан массив, содержащий N элементов. Написать подпрограмммы, выполняющие следующие действия:

* Определение элементов массива, разность модулей которых имеет наибольшее значение (!!!)
* Определение значение, которое встречается среди элементов массива максимальное число раз, и вычисление количества вхождений (!!!)
Помогите пожалуйста дописать подпрограммы... Вот исходник:
Исходник.rar

[DM_bite]

Перестановка:

program Mass;
const n=15;
var a:array [1..n] of integer;
    i: integer;
    begin
    for i:= 1 to n do
     begin
     a[i]:= i;
     WriteLn(a[i],'__');
     end;
     ReadLn;
     for i:= n downto 1 do
     begin
     WriteLn(a[i],'$$$');
     end;
     ReadLn;
     end.

Формировать массив можно по-разному.

program Mass;
const n=15;
var a:array [1..n] of integer;
    i,j,new: integer;
    begin
     // Заполняешь массив
     for j:= 1 to n-1 do
     for i:= 1 to n-1 do
     begin
      if a[i]>a[i+1] then
       begin
       new:= a[i];
       a[i]:= a[i+1];
       a[i+1]:= new;
     end;
     end;
     for i:= 1 to n do
     begin
     WriteLn(a[i],'__'); //Упорядоченный массив.
     end;
     ReadLn;
     end.

[Sorinka]

DM_bite, я это уже сама сделала, мне нужно те 2 пункта, которые я оставила щас... Чтоб путаницы не было...

[Sorinka]

помогите кто-нибудь пожалуйста!!!