Одномерные массивы

[Женька Good]

Вот программа, необходимо посчитать сумму доходов, которые изменяются от 230 до 8500. сколько лет компания имела такую прибыль?
Года выводит по-порядку в столбец и прибыль тоже, а вот сумму и кол-во лет не получается....
помогите плз!

Program Mas1;
Uses Crt;
Type Mas=Array [1..10] of Real;
Var y:mas;
I,s,k,x:Integer;
Begin
CLRSCR;
S:=0;
Writeln('***************************');
Writeln('| God | Y |');
Writeln('***************************');
For i:=2000 to 2010 do
Begin;
y:=100*((ABS(cos(i*i-3.8)))/4.5-9.7*sin(i-3.1));
Writeln('| ', i:5,' | ', y:10:1,' |');
End;
Writeln('***************************');
For i:=2000 to 2010 do
Begin;
If (y>=230) and (y<=8500) then
s:=s+y;
K:=k+1;
End;
Writeln('Summa dohodov v predelax ot 230 do 8500 ==> ',s:0);
Writeln('Kolichestvo let, kogda firma imela takyu pribyl ==> ', k:0);
Readln;
End.

[Leshii]

Program Mas1;
Uses Crt;
Type Mas=Array [1..10] of Real;
Var y:mas;
s,g:real;
i,k:integer;
Begin
CLRSCR;
S:=0;
K:=0;
for i:=2000 to 2010 do
begin
writeln('Y[',i,']=');
readln(Y[i]);
end;
Writeln('***************************');
Writeln('| God | Y |');
Writeln('***************************');
For i:=2000 to 2010 do
Begin
g:=100*((ABS(cos(y[i]*y[i]*y[i]-3.8)))/4.5-9.7*sin(y[i]-3.1));
Writeln('| ', i:5,' | ', abs(g):10:1,' |');
End;
Writeln('***************************');
For i:=2000 to 2010 do
s:=s+g;
If (s>230) and (s<8500) then
K:=k+1;
Writeln('Summa dohodov v predelax ot 230 do 8500 ==> ',abs(s):4:2);
Writeln('Kolichestvo let, kogda firma imela takyu pribyl ==> ', k:1);
Readln;
End.

Хотя, давай так.Я пока занят, но алгоритм могу сказать так.
Сравни суму которая получилась со всеми найдеными сумами за 10 лет, если будут найдены совпадения то увеличеваеш счётчик на 1.