Масивы

[1Dima]

Помогите сдеалть задачу в Delphi пожалуйста буду очень благодарен))

Створити і вивести на екран масив кожен елемент якого обчислюється за формулою а:=1-2і. Скласти прогаму знаходження добутку всіх елемнтів масиву більших 1 або вивести на екран повідомлення, що таких елементів у масиві немає.Користувач сам задає кількість елементів.

Uses
SysUtils;

Const n=10;
Var a:array [1..n] of real;
i:integer;
dob: real;
e:Boolean;
begin
writeln ('vvedit elementu masuvy: ');
for i:=1 to n do
begin
write ('a[',i,']=');
a[i]:=(1-2*i);
readln;
end;
dob:=0;
e:= false;
for i:=1 to n do if a[i]> then
begin
write (a[i]:5:2);
dob:= dob*a[i];
e:= true;
end;
if not e then writeln ('takuh elemenyiv u masuvi nemae!');
writeln ('dob=',dob:5);
readln
end.

[Mad_Cat]

dob:=1;

///////////////////
но я тебе сразу скажу

takuh elemenyiv u masuvi nemae!

[1Dima]

dob:=1
не катит просто выводит вконце единицу и кучу ноликов