Найти сумму и среднее арифметическое значение для каждого массива

Const nmax=15;
Type mas=array[1..nmax] of integer;
Var A,B,C:mas;
    n,m,h:byte;
Procedure Vvod(Var A:mas;n:byte;c:char);
Var i:byte;
Begin
    For i:=1 to n do
    Begin
      write(c,'[',i,']=');
      readln(A[i]);
    End;
End;
Function Srednee(A:mas;n:byte):real;
Var i:byte;
    sr:real;
Begin
    For i:=1 to n do
     sr:=sr+A[i];
    Srednee:=sr/n;
End;
Begin
    Repeat
     write('Введите размер первого массива: ');
     readln(n);
    Until n in [1..nmax];
    Vvod(A,n,'A');
    writeln('Среднее арифметическое первого = ',Srednee(A,n):0:2);
    Repeat
     write('Введите размер второго массива: ');
     readln(m);
    Until m in [1..nmax];
    Vvod(B,m,'B');
    writeln('Среднее арифметическое первого = ',Srednee(B,m):0:2);
    Repeat
     write('Введите размер третьего массива: ');
     readln(h);
    Until h in [1..nmax];
    Vvod(C,h,'C');
    writeln('Среднее арифметическое третьего = ',Srednee(C,h):0:2);
    readln;
End.