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

var
mas: array[1..30] of real;
sum: real;
i,n: integer;
flag: boolean;
begin
writeln('Введите N<30 (длину массива)');
readln(n);
flag:=false;
for i:=1 to n
    do
      begin
      writeln('Введите ',i,'-ый элемент массива');
      readln(mas[i]);
      end;
for i:=1 to n
    do
      begin
      if flag=true
         then
             sum:=sum+mas[i];
      if mas[i]>0
         then
             flag:=true;
      end;
writeln('Ответ: ',sum);
end.

var
mas,mas2: array[1..30] of real;
i,n,a,b,count: integer;
begin
writeln('Введите a b через пробел');
readln(a,b);
writeln('Введите N<30 (длину массива)');
readln(n);
count:=0;
for i:=1 to n
    do
      begin
      writeln('Введите ',i,'-ый элемент массива');
      readln(mas[i]);
      end;
writeln('Было:');
for i:=1 to n
    do
      begin
      write(mas[i],' ');
      end;
for i:=1 to n
    do
      begin
      if (trunc(mas[i])>a) and (trunc(mas[i])<b)
         then
             begin
             inc(count);
             mas2[count]:=mas[i];
             end;
      end;
for i:=1 to n
    do
      begin
      if (trunc(mas[i])<a) or (trunc(mas[i])>b)
         then
             begin
             inc(count);
             mas2[count]:=mas[i];
             end;
      end;
writeln;
writeln('Стал:');
for i:=1 to n
    do
      begin
      write(mas2[i],' ');
      end;
end.