Написать программу выполняющую поиск элементов заданного массива

program Project1;
var
  a: array[1..50] of integer; // Переменная для хранения массива.
  n: integer; //   Переменная для хранения количества элементов массива.
  i,j: integer; // Вспомогательная переменная для организации цикла.
  mindiff: integer; //  Переменная для хранения значения разницы элементов.
  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]:4);
      if i mod 10 = 0 then
        writeln;
    end;
  mindiff:= 2147483647;
  for i:= 1 to n-1 do
    for j:= i+1 to n do
       if abs(a[i] + a[j]) < mindiff then   // Условие для поиска элементов с нименьшей разницей по модулю.
         begin
           mindiff:= abs(a[i] + a[j]);
           ind1:= i;
           ind2:= j;
         end;
  writeln('Наименьшую разность по модулю дают элементы a[',ind1,'] и a[',ind2,'].');
Readln;
end.

program Project1;
var
  a: array[1..50] of integer; // Переменная для хранения массива.
  n: integer; //   Переменная для хранения количества элементов массива.
  i,j: integer; // Вспомогательная переменная для организации цикла.
  mindiff: integer; //  Переменная для хранения значения разницы элементов.
  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]:4);
      if i mod 10 = 0 then
        writeln;
    end;
  mindiff:= 2147483646;
  for i:= 1 to n-1 do
    for j:= i+1 to n do
       if abs(a[i] - a[j]) < mindiff then   // Условие для поиска элементов с наименьшей разницей по модулю.
         begin
           mindiff:= abs(a[i] - a[j]);
           ind1:= i;
           ind2:= j;
         end;
  writeln('Наименьшую разность по модулю дают элементы a[',ind1,']= ',a[ind1],' и a[',ind2,']= ',a[ind2]);
Readln;
end.