Помогите с задачей!!!!!!!!!

[Lena123]

Дано: вещественное число М и массив A из N элементов (0<N<100; 0<A[i]<10) вещественных чисел. Определить два элемента, разница между которыми ближе всего к М.

[AlDelta]

Правила форума прочитать слабо?

[Greblin]

program minsub;

const NN = 99;

var min: real;
     imin, jmin, i, j: integer;
     A: array[1..NN] of real;
     M: real;
     N: integer;

begin
read(M, N);
for i := 1 to N do read(A[i]);
imin := 1; jmin := 2;
min := abs(A[1] - A[2] - M);
for i := 1 to N do
  for j := 1 to N do
    if j <> i then
      if abs(A[i] - A[j] - M) < min then
        begin
        min := abs(A[i] - A[j] - M);
        imin := i;
        jmin := j
        end;
writeln(imin,' ',jmin)
end.

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

[Lena123]

Cпасибо, Вы очень помогли.