В однородном массиве вещественных чисел найти сумму элементов, предшествующих первому положительному элементу, и количество таких элементов

Program Ok;

var A:array[1 ... 10] of real;

sum:real; i, n:integer;

begin

randomize;

sum:=0;

for i:=1 to 10 do

begin

read (A[i]) ;

end;

for i:=10 downto 1 do

begin

if (A[i]>0) then

n:=i;

end;

for i:=1 to 9 do

begin

if (A[n] = A[i+1]) then

sum:=sum+1;

end;

writeln (sum) ;

end.