вывести на экран среднее и сумму введенных данных

program_massiv;
Uses Crt;
const
n = 5;
var     
i: integer; 
a: array[1..n] of real;
sr, sum: real;

type TMyMassive = array of real;
 
procedure Vvod(var b:TMyMassive; n: integer);
var i:integer;
begin setlength(b,n);
      for i:=0 to n-1 do
      begin write('b',i,'=');
            readln(b[i]);
      end;
end;
 
procedure Vvod_rand(var c:TMyMassive; n: integer);
var i:integer;
begin setlength(c,n);
      for i:=0 to n-1 do
      c[i]:=random*10-5;
end;
 
function sred(var d:TMyMassive; n: integer):real;
var i:integer;sum:real;
begin sum:=0;
      for i:=0 to n-1 do
      sum:=c[i]+sum;
      sred:=sum/n;
end;
 
var a1,a2:TMyMassive; f1,f2:textfile; i,n:integer;
begin write('n=');
      readln(n);
      randomize;
      vvod(a1,n);
      vvod_rand(a2,n);
      assign(f1,'out1.txt');
      assign(f2,'out2.txt');
      rewrite(f1);rewrite(f2);
      for i:=0 to n-1 do
      begin write(f1,'a',i,'=',a1[i],' ');
           write(f2,'a',i,'=',a2[i],' ');
      end;
      writeln(f1,'sred1=',sred(a1,n));
      writeln(f2,'sred2=',sred(a2,n));
      close(f1);
      close(f2);
      readln;
end.