Задача на последовательность,где ошибка? Опции

[Skyriver]

Даны целые числа а1 , а2 .... .Известно , что а1>0 и что среди а1 , а2 ... есть хотя бы одно отрицательное число
.Пусть а1, ... аn - члены данной последовательности ,предшествующие первому отрицательному члену (n заранее известно).Получить max((а1)^3) ,.....,((an)^3).

Program Zadanie4;
Uses wincrt;
var i,n,s:integer;
var a:array[1..100] of integer;
Begin
s:=0;
 Writeln('Vvedite kolichestvo elementov');
  Read(n);
   Writeln('Vvedite elementy');
 For i:=1 to n do
  read(a[i]);
 While (a[i]>0) do
  s:=(a[i]*a[i]*a[i])+s;
   Writeln('Polucheny dannye:',s)
End.

где ошибка?

[bura]

Ошибки в программе нет, только она написана для другой задачи: найти сумму членов последовательности, предшествующих первому отрицательному или нулевому элементу последовательности.