Помогите Plise

[Sergei12345]

Найдите произведение всех элементов массива А, модуль которых меньше заданного числа

[alex_fcsm]

uses crt;
var a:array[1..10] of integer;
    i:integer;
    r,mult:real;

begin
clrscr;
randomize;
for i:=1 to 10 do
 begin
  a[i]:=random(20)-8;
  if a[i]=0 then a[i]:=1;
  write(a[i]:3);
 end;
writeln;
mult:=1;
Writeln('Input number');
readln(r);
for i:=1 to 10 do
 if abs(a[i])<r then mult:=mult*a[i];
writeln('Mult:',mult:4:1);
end.