Найти сумму индексов отрицательных элементов массива X[1..n]. Помогите пожалуйста!

Const   n = 13;Var   X:array[1..n] of integer;   i:integer;   S:real;BeginRandomize;S:=0;Write('Исходный массив:');For i:= 1 to n do    Begin    X[i]:=random(2*n)-n;    Write(' ',X[i]);    if X[i]<0 then S:=S+i    End;WriteLn;WriteLn('S = ',S);End.