Вычислить среднее арифметическое элементов массива

program proc;
var i,n,sum:integer;
sr:real;
procedure work(r:integer; var s:integer; var s1:real);
var mas:array[1..15] of integer;
j:integer;
begin
s:=0;
for i:=1 to r do begin
write ('Введите элемент',j,':');
read(mas[j]);
s:=s+mas[j];
end;
s1:=s\r;
end;
begin
for i:=1 to 3 do begin
write('Введите размер ',i,'массива:');
readln(n);
work(n,sum,sr);
writeln('Сумма элементов = ',sum);
writeln('Среднее арифметическое = ',sr:4:1);
end;
readln;
end.

program proc;
var
  j,i,n,sum:integer;
  mas:array[1..15] of integer;
  sr:real;
 
procedure work(r:integer; var s:integer; var s1:real);
var
  i:integer;
begin
  s:=0;
  for i:=1 to r do
    begin
      write ('Введите элемент',i,':');
      readln(mas[i]);
      s:=s+mas[i];
    end;
  s1:=s/r;
end;
 
begin
  for i:=1 to 3 do
    begin
      { зачистим массив }
      for j:=1 to 15 do
        mas[j]:=0;
      write('Введите размер ',i,'-го массива:');
      readln(n);
      work(n,sum,sr);
      writeln('Сумма элементов = ',sum);
      writeln('Среднее арифметическое = ',sr:4:1);
    end;
  readln;
end.