вывод наименее отличающихся друг от друга

[счастливая]

Дан целочисленный массив из 40 элементов. Элементы массива могут принимать произвольные значения. Опишите на языке программирования алгоритм, который находит и выводит номера двух элементов массива, наименее отличающихся друг от друга.
Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.
const N=40;
var
а: array [1..N] of integer;
i, j, min, min2, s: integer;
begin
for i :=1 to N do
readln(a[i]);
…
end.

[Z1000000]

Отсортировать и сравнивать соседние.

[Serge_Bliznykov]

в данном случае сравнить попарно каждый элемент с каждым и не надо заморачиваться с сортировкой.

const N=40;
var
а: array [1..N] of integer;
i, j, min, min2, s: integer; 
begin
  for i :=1 to N do 
     readln(a[i]);

  min := 1;
  min2 := 2;
  for i :=1 to N-1 do 
     for j:=i+1 to N do begin
        if abs(a[i]-a[j])<abs(a[min]-a[min2]) then begin
             min := i;
             min2 := j;
        end;
     end;

   {вывод результатов}
    WriteLn('Минимально отличаюся элементы с индексами ',min:1,' и ', min2:1);
    Readln;
end.

[счастливая]

Serge_Bliznykov! спасибо вам большое!!!!