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

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.