Необходима помощь в доработке программы...

[hen]

Задание:
Создать массив у, элементы которого вычисляют по формуле у = ln(k) - 3 где k = 1,2,.... 10. Построить массив g, состоящий из отрицательных элементов массива у. Вывести результаты вычислений на экран. Если искомых величин нет, то вывести соответствующее сообщение.
Вот моя программка:

Program Massiv;
Uses crt;
var y,g:array[1..10]of real;
k,n:integer;
s:real;
Begin
Clrscr;
n:=0;{Сначало кол-во элементов в G=0}
For k:=1 to 10 do
Begin
y[k]:=Ln(k)-2;
if y[k]<0Then {Проверяем условие}
Begin
{Увеличиваем количество элементов вектора G}
n:=n+1;
G[n]:=y[k];
{Определяем первый элемент}
End;
WriteLn('y(',k,')=',y[k]:7:2);
End;
if n=0 Then
WriteLn('Вмассиве у отрицательных элементов нет');
For k:=1 to n do {Выводим массив g}
Writeln('G[',k,']=',G[k]:7:2);
S:=g[3]+g[6];
Writeln('Сумма равна=',S);
Readkey;
End.

К ней задание:

Вывести номера и значения двух самых больших элементов. Вычислить их сумму.

Вот с ним у меня и возникает проблема
пожалуйста помогите с этим дополнительным заданием

[hen]

P.S.:
Задание к коду нужно делать по получившемуся массиву G
25 и 26 строчка в коде это не сюда забыл удалить

[alex_fcsm]

В чем проблема? Нужно найти максимум и сумму? По какому массиву?

Предположим есть массив А, тогда в max будет хранится индекс наибольшего элемента а sum - сумма элементов массива

max:=1;
sum:=0;
for i:=1 to n do
 begin
   if  a[i]>a[max] then max:=i;
   sum:=sum+a[i];
 end;

[Naive]

max:=2;
max2:=1;
sum:=0;
for i:=1 to n do
   if  a[i]>a[max] then 
    begin
      max2:=max;
      max:=i;
    end;
writeln('Элементы с номерами ',max,' и ',max2,' максимальны, их значения: ',a[max],' и ',a[max],' соответственно ');
sum:=a[max]+a[max2];
write('их сумма ровна: ', sum);

примерно так, если верно понял задание