Помогите с паскалем.В линейный массив вещественных чисел на 8-е место вставить элемент, равный сумме первых 10 элементов массива.

Var n, i: Integer;    sum: Double;    a: Array[1..1000] of Double;begin    ReadLn(n);    for i:=1 to n do Read(a[i]);    sum:=0;    for i:=1 to 10 do sum:=sum+a[i];    a[8]:=sum;    WriteLn('--');    for i:=1 to n do Write(a[i]:0:3, ', ');end.