Нахождение среднего арифметического элементов массива

type mas=array[1..100] of real;
function Sred(v:mas;n:byte):real;
var s:real;
     i:byte;
begin
s:=0;
for i:=1 to n do
s:=s+v[i];
Sred:=s/n;
end;
......................................
Writeln('Среднее в массиве Х=',Sred(x,n):0:2);
Writeln('Среднее в массиве Y=',Sred(y,m):0:2);

uses crt;
const max=100;
type mas=array[1..max] of integer;
procedure Massiv(var m:mas;var x:byte;c:char);
var i:byte;
begin
repeat
write('Размер массива ',c,'=');
readln(x);
until x in [1..max];
writeln('Mассив ',c);
for i:=1 to x do
 begin
  m[i]:=random(20)+1;
  write(m[i],' ');
 end;
writeln;
end;
Procedure Sred(m:mas;x:byte; var sc,sn:real);
var i,kc,kn:byte;
begin
sc:=0;sn:=0;
kc:=0;kn:=0;
for i:=1 to x do
 begin
  if(m[i] mod 2=0)then
   begin
    kc:=kc+1;
    sc:=sc+m[i];
   end;
  if(m[i] mod 2<>0)then
   begin
    kn:=kn+1;
    sn:=sn+m[i];
   end;
 end;
sc:=sc/kc;
sn:=sn/kn;
writeln('Среднее четных  =',sc:0:2);
writeln('Среднее нечетных=',sn:0:2);
writeln;
end;
var x,y:mas;
    n,m:byte;
    sr_ch,sr_nch:real;
begin
clrscr;
Massiv(x,n,'X');
Sred(x,n,sr_ch,sr_nch);
Massiv(y,m,'Y');
Sred(y,m,sr_ch,sr_nch);
readln
end.