Задача по информатике

Дан массив a из n целых чисел. За одну операцию можно выбрать два каких-то индекса x и y, после чего заменить число a[x] на сумму a[x]+a[y]. Ваша задача — сделав не более 2n операций получить массив, отсортированный по неубыванию (то есть, сделать так, чтобы каждый элемент был больше или равен, чем предыдущий).
входные данные:
3
5 2 4
выходные данные:
2
2 3
3 2

Поиск -  это последовательность действий, от определения предмета поиска, до получения ответа на имеющиеся вопросы с использованием всех данных, Сбор - Накопление какой-либо информации, Формализация - представление какой-либо содержательной области (рассуждений, доказательств, процедур классификации, поиска информации научных теорий) в виде формальной системы или исчисления, Фильтрация - вывод нужных пользователю данных, в результате созданного им запроса. Сортировка - перераспределение информации для хранения под общим названием или объединённых в одну тему, Архивация - сжатие (упаковка) данных в архив с специальной программы "архиватора", Защита данных - комплекс мероприятий технического, организационного и организационно-технического характера, направленных на защиту сведений, относящихся к определенному или определяемому на основании такой информации физическому лицу (субъекту персональных данных), Транспортировка данных - это передача их между источником и приемником информации Преобразование данных - изменение одного вида информации на другой или формат (изменение формата) Хранение - временное хранилище информации, Обработка данных  - любое действие (операция) или совокупность действий (операций), совершаемых с использованием средств автоматизации или без использования таких средств с персональными данными, включая сбор, запись, систематизацию, накопление, хранение, уточнение (обновление, изменение), извлечение, использование, передачу (распространение, предоставление, доступ), обезличивание, блокирование, удаление, уничтожение персональных данных. Обработка информации - любое преобразование информации из одного вида в другой, производимое по строгим формальным правилам.

// PascalABC.Net 3.0, сборка 1076
var
  s,ss:string;
  i,n,p:integer;
begin
  Write('Введите строку: '); Readln(s);
  n:=Length(s); p:=Pos(',',s);
  if p in [1..n-1] then begin
    ss:=Copy(s,p+1,n-p);
    n:=Length(ss); p:=Pos(',',ss);
    if p=0 then Writeln(ss)
    else Writeln(Copy(ss,1,p-1))
    end
  else Writeln('*** Нечего выводить ***')
end.
     
Тестовые решения:
Введите строку: 01234,45679,1011213,14151617
45679

Введите строку: 01234,45679101121314151617
45679101121314151617

Введите строку: 01234,
*** Нечего выводить ***