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

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

где ошибка?

[volvo]

оно почему то удаляет не последний а все.

Вообще-то это не ОНО, а ты удаляешь все. Надо было удалять последний - сделал бы так:

      For i:=1 to l do
       If STR[I] in M then K := i;
      Delete(s, k, 1);

или обратным проходом по строке до первого встреченного знака препинания, с помощью цикла While, если не хочется делать лишние итерации...

Усвоил.

Что именно? Это было уточнение предыдущего поста, тебе же (для того, чтобы решить поставленную задачу) надо добавить еще 2 строки.

Добавлено через 1 мин.
P.S. Вообще-то "Одна тема - один вопрос", если что...

[Skyriver]

Вообще-то это не ОНО, а ты удаляешь все. Надо было удалять последний - сделал бы так:

      For i:=1 to l do
       If STR[I] in M then K := i;
      Delete(s, k, 1);

или обратным проходом по строке до первого встреченного знака препинания, с помощью цикла While, если не хочется делать лишние итерации...

Что именно? Это было уточнение предыдущего поста, тебе же (для того, чтобы решить поставленную задачу) надо добавить еще 2 строки.

Добавлено через 1 мин.
P.S. Вообще-то "Одна тема - один вопрос", если что...

Тогда закрывайте тему,спасибо что помогли