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

uses crt;
Var
 a:array[1..20] of real;
 i,n,k:integer;
 s:real;
 p:boolean;
Begin
clrscr;
 Writeln('vvedte kol-vo elementov');
 readln(n);
 Writeln('vvedite elementy');
 for i:=1 to n do
 begin
  Write('a[',i,']=');
  readln(a[i])
 end;
 p:=true;
 i:=1;
 k:=0;
 while (p) and (i<=n) do
  if a[i]>0 then
  begin
   k:=i;
   p:=false
   end
  else
   inc(i);
 s:=0;
 if k<>0 then
  for i:=k+1 to n do
   s:=s+a[i];
  textcolor(lightgreen);
 Writeln('Cymma = ' ,s:5:2);
readkey
end.

uses crt;
const n=15;
var c:array[1..n]of real;
    x:real;
    a,b,i,k,j:integer;
begin
clrscr;
randomize;
writeln('?б室*л© ¬*ббЁў:');
for i:=1 to n do
   begin
     c[i]:=10*random;
     write(c[i]:5:2);
   end;
writeln;
repeat
writeln('‚ўҐ¤ЁвҐ 2 楫ле зЁб«* a,b a<b:');
readln(a,b);
until b>a;
writeln;
k:=0;
for i:=1 to n do
if (trunc(c[i])>=a)and(trunc(c[i])<=b) then
  begin
    k:=k+1;
    x:=c[i];
    for j:=i downto k+1 do
    c[j]:=c[j-1];
    c[k]:=x;
  end;
if k=0 then write('—ЁбҐ« ў Ё*вҐаў*«Ґ ',a,'  ',b,' *Ґв!')
else
 begin
  writeln('ЏҐаҐбв**®ўЄ*:');
  for i:=1 to n do
  write(c[i]:5:2);
 end;
readln
end.