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

Const
   n = 13;
Var
   X:array[1..n] of integer;
   i:integer;
   S:real;
Begin
Randomize;
S:=0;
Write('Начальный массив:');
For i:= 1 to n do
    Begin
    X[i]:=random(2*n)-n;
    Write(' ',X[i]);
    if X[i]lt;0 then S:=S+i
    End;
WriteLn;
WriteLn('S = ',S);
End.