Задача на Pascal ABC массивы с сортировкой

[Tenken1995]

Добрый день, прошу помощи в решении задачи на массивы.
Если элементы массива расположены по возрастанию, то после первого положительного элемента вставить элемент равный сумме всех элементов массива, в противном случае рассортировать элементы массива по возрастанию.

[Stilet]

В чем проблема?
Наработки в студию )

[Tenken1995]

проблема в том что я не знаю как решить эту задачу, не больше не меньше

[Serge_Bliznykov]

когда такое говорят, подразумевается, "не знаю и знать не хочу"!

Хотите, чтобы сделали за Вас - идите во Фриланс,
хотите научиться решать задачи - прилагайте усилия.

Для начала, что конкретно у Вас вызывает сложности?
Описать массив можете? Обеспечить заполнение (ввод) данных в массив можете?
Как определить, упорядочен массив или нет, знаете?
Найти сумму определённых элементов в массиве умеете?
Сортировку легко взять готовый код на форуме, это чуть ли не ежедневно публикуется! Или поиском найти не сложно.

Начнёте что-то делать/решать задачу, вероятность получить помощь сильно увеличивается.

[Tenken1995]

const n = 100;
var
a:array[1..n]of integer;
i,j,b,c,e:integer;
begin
readln(b);
for i:=1 to b do begin
readln(a[i]);
if (a[i]>0) and (c=0) then c:=i;
end;
for i:=1 to b-1 do
for j:=i to b do
if a[i]>a[j] then begin c:=a[i]; a[i]:=a[j]; a[j]:=c; e:=e+1;end;
if e<>0 then for i:=1 to b do write(a[i],' '); writeln;
j:=0;
for i:=1 to b do j:=j+a[i];
if e=0 then begin a[c+1]:=j; writeln(a[c+1]);end;
end.
вот я написал у меня не считает сумму после того как я ввожу значения он сумму не считает, а и не могу как рассортировать по возрастанию в противном случае