В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1.сумму элементов массива,расположенных после первого положительного элемента. — Pascal(Паскаль)

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.