Помогитеее, пожалуйста. Найти в одномерном массиве элементы, сумма которых максимальна, затем удалите все элементы, предшествующие тому элементу, индекс которых наибольший из двух. (в паскале)

Например так(выводит начальный массив, максимальную сумму, измененный массив).

program test;
uses crt;
var
  arr:array[1..10] of integer;
  i,j,max,maxn:integer;
begin
  randomize;
  clrscr;
  for i:=1 to 10 do
    begin
      arr[i]:=random(100);
      write(arr[i], );
    end;
  writeln;

  max:=arr[1]+arr[2];
  maxn:=2;

  for i:=1 to 10 do
    for j:=1 to 10 do
      if i<>j then
        if max          begin
            max:=arr[i]+arr[j];
            if i>j then maxn:=i else maxn:=j;
          end;

  writeln(max summ=,max);
 
  for i:=1 to 10 do
    begin
      if i      write(arr[i], );
    end;
  readln;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.