Даны два массива. Найти среднеарифметическое элементов каждого из массивов и вывести на экран большее значение. Если средние значения равны вывести соответствующее сообщение — Pascal(Паскаль)

program kontrol2_z_2;
uses crt;
const nmax=100;
type mas=array[1..nmax]of integer;
procedure Massiv(var v:mas;var n:byte;c:char);
var i:byte;
begin
repeat
write('Размер массива до ',nmax,' = ');
readln(n);
until n in [1..nmax];
writeln('Введите ',n,' элементов массива:');
for i:=1  to  n  dO
read(v[i]);
readln;
writeln
end;
function Sred(v:mas;n:byte):real;
var i:byte;
    sr:real;
begin
sr:=0;
for i:=1 to n do
sr:=sr+v[i];
Sred:=sr/n;
end;
var A,B:mas;
    na,nb:byte;
    sra,srb:real;
begin
clrscr;
Massiv(a,na,'A');
sra:=Sred(a,na);
writeln('Среднее арифметическое=',sra:0:2);
Massiv(b,nb,'B');
srb:=Sred(b,nb);
writeln('Среднее арифметическое=',srb:0:2);
if sra>srb then    writeln ('В массиве А среднее больше')
else if sra<srb then  writeln ('В массиве B среднее больше')
else writeln ('Cреднеарифметическое значения массивов равны');
readln
end.