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

[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]

Задача на обработку строк:

Код

var
STR:string[80];
L,I,K:BYTE;
M:SET OF CHAR;
Begin
M:=['.',',','!','?','-',';',':'];
Write('Vvedite stroku: ');
Readln (STR);
L:=byte(STR[0]);
For i:=L downto 1 do
   If STR[I] in M then
    begin
     K:=i;
     break;
    end;
if i<>0 then
  Delete(str,k,1);
Writeln('Poluchena stroka:',str);
readln;
End.

Что же до задач на последовательность, то там вообще можно обойтись без массива.
Потом, ты пишешь:

Код

While (a[i]>0) do
  s:=(a[i]*a[i]*a[i])+s;

В итоге у тебя получается, что в первой строчке a[i] сравнивается с 0. А чему при этом равно i? Оно равно n+1.
То есть, несуществующий элемент массива сравнивается с 0. Потом, как у тебя к сумме могут добавляться значения элементов массива в кубе при неизменяющемся i?