Вычисление среднего значения элементов одномерного массива (подпрограмма) - Free Pascal

var
  a,l,b:array of real;
function sr(q:array of real):real;
var
  s:real;
  i:integer;
begin
  s:=0;
  for i:=low(q) to high(q) do s:=s+q[i];
  sr:=s/(1+high(q));
end;
procedure enterarr(var q:array of real;s:string);
var
  i:integer;
begin
  writeln(s);
  for i:=low(q) to high(q) do read(q[i]);
end;
begin
  setlength(a,7);
  setlength(l,12);
  setlength(b,8);
  enterarr(a,'Введите массив A (7 значений):');
  enterarr(l,'Введите массив L (12 значений):');
  enterarr(b,'Введите массив B (8 значений):');
  writeln('<Sa>=',sr(a):0:2);
  writeln('<Sl>=',sr(l):0:2);
  writeln('<Sb>=',sr(b):0:2);
end.