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

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.