работа с одномерным массивом

[_Solomon_]

Даны действильные s1, s2 ...s16. Получить новый массив К, элементы которого связаны с элементами соотношением (s1+ s16, s2+ s15,.., s8+ s9). Привести алгоритм и решение задачи на языке делфи

[Virtson]

var 
  i: integer;
  s, k: array[1..16] of real;
begin
...
for i:=1 to 8 do k[i]:=s[i]+s[17-i];
...
end;