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

program Ok;var A:array[1..10] of real;sum:real;i,n:integer;beginrandomize;sum:=0;for i:=1 to 10 dobeginread(A[i]);end;for i:=10 downto 1 dobeginif(A[i]>0) thenn:=i;end;for i:=1 to 9 dobeginif (A[n] = A[i+1]) thensum:=sum+1;end;writeln(sum);end.