Помогитее, пожалуйста. Найти в одномерном массиве элементы, сумма которых…

Например так (выводит начальный массив, максимальную сумму, измененный массив).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 maxj then maxn: =i else maxn: =j; end; writeln ('max summ=',max); for i: =1 to 10 do begin if i