Найти сумму номеров отрицательных элементов массива h=(h1,h2,…,hn ).

procedure TForm1.Button1Click(Sender: TObject);
var
h:array[0..10] of real; //Назвал массив
s:integer; i:integer; //Обозначил переменные
begin
 a[i]:=strtofloat(memo1.lines[i]); //ввод переменных
 for I := 1 to n-1 do //Создаём условия что бы считалась каждая точка в Memo
 if a[i]<0 then //Оператор выбора
                begin 
                s:=a[i]+a[i]; //ищем сумму отрицательных номеров элемента массива
                end;
label1.caption:=floattostr(s); //вывод на экран с помощью label1
 end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
var
h:array[0..10] of real; //Назвал массив
s:integer; i:integer; //Обозначил переменные
begin
S:=0;   // ------------по умолчанию сумма равна нулю
 a[i]:=strtofloat(memo1.lines[i]); //ввод переменных
 for I := 1 to n-1 do //Создаём условия что бы считалась каждая точка в Memo
 if a[i]<0 then //Оператор выбора
                begin
                s:=s+i; // ------- а тут суммируем индексы отрицательных элементов
                end;
label1.caption:=floattostr(s); //вывод на экран с помощью label1
 end;