Впаскале сформировать массив из положительных элементов и найти их произведение

uses crt;
var a:array[1..10] of integer;
i,s:integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do begin
a[i]:=random(10-1+1)+1;
write(a[i]:4);
end;
s:=1;
for i:=1 to 10 do begin
s:=s*a[i];
end;
writeln;
writeln('Произведение элементов: ',s);
end.

В массиве 10 элементов, которые заданы случайно в пределах от 1 до 10.