Найти два элемента массива с максимальным модулем их разности

program Project1;
{$codepage utf8}
var
  a: array[1..50] of real; // Переменная для хранения массива.
  n: integer; // Переменная для хранения количества элементов массива.
  i,j: integer; // Вспомогательная переменная для организации цикла.
  maxdiff: real; // Переменная для хранения значения разницы элементов.
  ind1, ind2: integer; // Переменные для хранения индексов элементов среди которых ведется поиск.
begin
  write('Введите количество элементов массива: ');
  Readln(n);
  for i:= 1 to n do // Ввод значений элементов вручную.
    begin
      write('Введите значение элемента ',i,': ');
      Readln(a[i]);
    end;
  writeln('Исходный массив:');
  for i:= 1 to n do // Вывод массива в консоль.
  begin
    write(a[i]:6:2);
    if i mod 10 = 0 then
      writeln;
  end;
  maxdiff:= abs(a[1]-a[2]);
  ind1:= 1;
  ind2:= 2;
  for i:= 1 to n-1 do
    for j:= i+1 to n do
      if abs(a[i] - a[j]) > maxdiff then // Условие для поиска элементов с наибольшей разницей по модулю.
        begin
          maxdiff:= abs(a[i] - a[j]);
          ind1:= i;
          ind2:= j;
        end;
  writeln;
  writeln('Наибольшую разность по модулю дают элементы a[',ind1,'] и a[',ind2,'].');
  Readln;
end.

IMin:=1;
IMax:=1;
Min:=A[1];
Max:=A[1];
for i := 2 to N do
begin
  if Min>A[i] then
  begin
    IMin:=i;
    Min:=A[i];
  end;
  if Max<A[i] then
  begin
    IMax:=i;
    Max:=A[i];
  end;
end;
writeln('Наибольшую разность по модулю дают элементы a[',IMax,']=',Max,' и a[',IMin,']=',Min,'.');

//....
IMin:=1;
IMax:=1;
for i := 2 to N do
begin
  if a[IMin]>=A[i] then IMin:=i
  else if a[IMax]<=A[i] then IMax:=i;
writeln('Наибольшую разность по модулю дают элементы a[',IMax,']=',a[IMax],' и a[',IMin,']=',a[IMin],'.');
//....

IMin:=1;
IMax:=N;
Min:=A[1];
Max:=A[N];
for i := 1 to N do
begin
  if Min>A[i] then
  begin
    IMin:=i;
    Min:=A[i];
  end;
  if Max<A[i] then
  begin
    IMax:=i;
    Max:=A[i];
  end;
end;
writeln('Наибольшую разность по модулю дают элементы a[',IMax,']=',Max,' и a[',IMin,']=',Min,'.');

//....
IMin:=1;
IMax:=1;
for i := 2 to N do
begin
  if a[IMin]>A[i] then IMin:=i
  else if a[IMax]<=A[i] then IMax:=i;
writeln('Наибольшую разность по модулю дают элементы a[',IMax,']=',a[IMax],' и a[',IMin,']=',a[IMin],'.');
//....