Найти произведение элементов массива, которые больше значения D1

Const nmax=100;
Type mas=array[1..nmax] of real;
Var A,B,C:mas;
    n,m,k,count:integer;
    d1,d2,d3,pr:real;
Procedure InPut(Var A:mas;Var n:integer;ch:char);
Var i:integer;
Begin
    Repeat
      write('Введите количество элементов массива ',ch,': ');
      readln(n);
    Until (n>0)and(n<=nmax);
    For i:=1 to n do
     A[i]:=random*10;
End;
Procedure OutPut(A:mas;n:integer;ch:char);
Var i:integer;
Begin
    writeln('Массив ',ch);
    For i:=1 to n do
     write(A[i]:6:2);
    writeln;
End;
Procedure Mult(A:mas;n:integer;d:real;Var pr:real;Var count:integer);
Var i:integer;
Begin
    pr:=1;count:=0;
    For i:=1 to n do
     if A[i] > d then 
     Begin
       pr:=pr*A[i];
       count:=count+1;
     End;
End;
Begin
    InPut(A,n,'A');
    OutPut(A,n,'A');
    write('Введите d1: ');
    readln(d1);
    Mult(A,n,d1,pr,count);
    if count = 0 then writeln('В массиве A нет элементов больше ',d1)
     else writeln('Произведение элементов больше ',d1,' равно ',pr:0:2);
    readln;
    
    InPut(B,m,'B');
    OutPut(B,m,'B');
    write('Введите d2: ');
    readln(d2);
    Mult(B,m,d2,pr,count);
    if count = 0 then writeln('В массиве B нет элементов больше ',d2)
     else writeln('Произведение элементов больше ',d2,' равно ',pr:0:2);
    readln;
    
    InPut(C,k,'C');
    OutPut(C,k,'C');
    write('Введите d3: ');
    readln(d3);
    Mult(C,k,d3,pr,count);
    if count = 0 then writeln('В массиве C нет элементов больше ',d3)
     else writeln('Произведение элементов больше ',d3,' равно ',pr:0:2);
    readln;
End.