Дан массив из 10 целых чисел (сформирован случайным образом ). Найти сумму,произведение и среднее арифметическое элементов массива.

[Ruzben]

Очень нужна помощь , вот мои наработки (новичёк):
program massiv;
const
n=10;
var
mas:array[1..10] of integer;
i,s,p :integer;
a :real;
begin
for i:=1 to 10 do
mas[i]:=random(100);
writeln(mas[i]);
begin
s:=s+mas[i];
p:=p*mas[i];
end;
a:=s/n;
writeln('Сумма ',s);
writeln('Произведение ',p);
writeln('Среднее арифметическое ',a:5:1);
end.

[Aleksandr H.]

program massiv;
const
n=10;
var
	mas:array[1..10] of integer;
	i,s,p :integer;
	a :real;
begin
s:=0;p:=1;
for i:=1 to 10 do
  begin
	mas[i]:=random(100);
        writeln(mas[i]);
	s:=s+mas[i];
	p:=p*mas[i];
end;
a:=s/n;
writeln('Сумма ',s);
writeln('Произведение ',p);
writeln('Среднее арифметическое ',a:5:1);
end.

[newerow1989]

const
   n=10;
var
   mas:array[1..n] of integer;
   i,s,p :integer;
   a :real;
begin
   Randomize;
   s:=0;
   p:=1;
   for i:=1 to n do
   begin
      mas[i]:=random(100);
      writeln(mas[i]);
      s:=s+mas[i];
      p:=p*mas[i];
   end;
   a:=s/n;
   writeln('Сумма ',s);
   writeln('Произведение ',p);
   writeln('Среднее арифметическое ',a:5:1);
   Readln;
end.