Найти разность средних арифметических значений и сумму двух массивов

const nmax=100;
Type mas=array[1..nmax] of integer;
Var A,B:mas;
    n,m:integer;
    s1,s2:integer;
    sr1,sr2:real;
Procedure InPut(Var A:mas;Var n:integer;c:char);
Var i:integer;
Begin
    Repeat
     write('Введите количество элементов массива "',c,'": ');
     readln(n);
    Until (n > 0)and(n<=nmax);
    For i:=1 to n do
     A[i]:=random(31)-15;
End;
Procedure OutPut(A:mas;n:integer;s:string);
Var i:integer;
Begin
    writeln(s);
    For i:=1 to n do
     write(A[i]:4);
    writeln;
End;
Function Sum(A:mas;n:integer):integer;
Var i,s:integer;
Begin
    s:=0;
    For i:=1 to n do
     s:=s+A[i];
    Sum:=s;
End;
Function Srednee(A:mas;n:integer;s:integer):real;
Begin
    Srednee:=s / n;
End;
Begin
   Randomize;
   InPut(A,n,'A');
   OutPut(A,n,'Массив A');
   s1:=Sum(A,n);
   writeln('Сумма массива A = ',s1);
   sr1:=Srednee(A,n,s1);
   writeln('Среднее арифметическое массива A = ',sr1);
   InPut(B,m,'B');
   OutPut(B,m,'Массив B');
   s2:=Sum(B,m);
   writeln('Сумма массива B = ',s2);
   sr2:=Srednee(B,m,s2);
   writeln('Среднее арифметическое массива B = ',sr2);
   writeln('Разность средних арифметических массивов = ', sr1 - sr2);
   readln;
End.