Помогите с задачей.Дан...

Помогите с задачей.Дан одномерный массив A размерности N. Найти количество элементов, больших заданного числа В и их произведение.(VisualBasic)

 

program a:
uses crt;
var i:,n:integer;
a:array[1..n] of real;
b,s:real;
 
begin
clrscr;
reanln('N= ',n);
s:=1;
for i:=1 to n do begin
readln('a[',i,']= ',a);
end;
for i:=1 to n do begin
if a>b then
s:=s*a;
endif;
end;
writeln('произведение равно ',s);
readkey;
end.