Вычислить сумму элементов массива, расположенных после первого положительного элемента

uses crt;
var  a:array[1..100]  of real;
i,n:integer;
s:real;
BEGIN
clrscr;
  repeat
   write('n = ');
   read(n);
  until n>0;
 
   for i:=1 to n do
   a[i]:=random(10+3);
 
    for i:=1 to n do
     write(a[i]:3:2,'  ');
     writeln;
     s:=0;
     for i:=1 to n do
      if a[i]>0 then
       s:=s+a[i+1];
 
       if s=0 then
        write('Елемент последнний , или положительного нету...')
       else
        write('Сумма = ',s:3:2);
readkey;
END.