задача на последовательности чисел Delphi

[Lexey92]

помогите написать задачу в делфи

Вводится последовательность вещественных чисел, оканчивающаяся нулём, и состоящая более чем из одного ненулевого элемента. Вывести числа последовательности, добавив к каждому, кроме первого, значение предыдущего.

[Prisioner]

для начала сформулируйте задание попонятнее

[Naive]

i:=0;
repeat
i:=i+1;
readln(a[i]);
until (a[i]=0);
num:=i;
write(a[0],' ')
for i:=1 to num do
write(a[i]+a[i-1],' ')

[Lexey92]

программа выявляет ошибку в строке:
readln(a[i]);

[Prisioner]

а вы объявили массив как переменную?