дан массив из 10 элементов заполнение и вывод при помощи цикла заполнение random любого числа найдите сумму и произведение всех элементов массива

Var a:array[1..10] of Integer ;p,i,s:integer;Begin p:=1;WriteLn('Массив');For i:= 1 to 10 dobegina[i]:=Random(20)-10;Write(a[i]:3);p:=p*a[i];s:=s+a[i];end;WriteLn;WriteLn('Сумма элементов массива = ', s);WriteLn('Произведение элементов массива = ',p)end.