Помогите написать алгоритм нахождения суммы положительных среди 10 вводимых.

Program BiFi;Var a:array[1..10] of real;s,i:real;Begins:=0;for i:=1 to 10 do begin readln(a[i]);                    if a[i]>0 then s:=s+a[i];                    end;writeln(s);readln;end.