Произведение элементов массива, по абсолютной величине больших трех

uses crt;
type mas=array[1..31] of integer;
procedure Massiv(var v:mas;x:byte;a,b:integer;c:char);
var i:byte;
begin
writeln('Массив ',c);
for i:=1 to x do
 begin
  v[i]:=random(b-a+1)+a;
  write(v[i]:3);
 end;
writeln;
writeln;
end;
function Bl_3(v:mas;x:byte):integer;
var i:byte;
    p:integer;
begin
p:=1;
for i:=1 to x do
if abs(v[i])>3 then p:=p*v[i];
Bl_3:=p;
end;
var r,p:mas;
begin
clrscr;
Massiv(r,20,-4,5,'R');
writeln('Произведение элементов, по модулю больших 3 = ',Bl_3(r,20));
writeln;
Massiv(p,31,-5,4,'P');
writeln('Произведение элементов, по модулю больших 3 = ',Bl_3(p,31));
readln
end.

function N_Min(v:mas,x:byte):byte;
var i,imn:byte;
begin
imn:=1;
for i:=1 to x do
if v[i]<v[imn] then imn:=i;
N_Min:=imn;
end;

function Kol_otr(v:mas;x:byte):byte;
var i,k:byte;
begin
k:=0;
for i:=1 to x do
if v[i]<0 then k:=k+1;
Kol_otr:=k;
end;