Дан массив подсчитать произведения всех элементов массива?

Program p1;
Var
j : Integer;
A: Array[1..5] of Real;
P : Real;
Begin
Randomize;
P:=1;
For j:=1 to 5 do
Begin
A[j]:=random(100);
P:=P*A[j];
End;
Writeln('Произведение всех элементов массива А равно: ',P);
End;

Program p2;
Var
j : Integer;
A: Array[1..5] of Real;
Min : Real;
Begin
Randomize;
For j:=1 to 5 do
A[j]:=random(100);
Min:=A[1];
For j:=2 to 5 do
If( A[j] < Min )
Then
Min:=A[j];
Writeln('Значение минимального элемента массива: ',Min);
End;