Нахождение значения функции с использованием процедуры или функции

uses crt;
const max=100;
type mas=array[1..max] of real;
procedure Massiv(var m:mas;var n:byte);//создание исходного массива
var i:byte;
begin
repeat
write('Размер массива ло ',max,'=');
readln(n);
until n in [1..max];
writeln('Введите ',n,' элементов масива:');
for i:=1 to n do
 begin
  write('el[',i,']=');
  readln(m[i]);
 end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(m[i]:0:2,' ');
writeln;
writeln;
end;
function Kol(m:mas;n:byte;b,c:real):byte;//определение М8
var i,k:byte;
begin
k:=0;
for i:=1 to n do
if(m[i]>=b)and(m[i]<=c) then k:=k+1;
Kol:=k;
end;
function Summ1(m:mas;n:byte;b,c:real):real;//определение Р6
var i:byte;
    s:real;
begin
s:=0;
for i:=1 to n do
if(m[i]>=b)and(m[i]<=c) then s:=s+m[i];
Summ1:=s;
end;
function Summ2(m:mas;n:byte;p:real):real;//вычисление суммы, если Р6<>0
var i:byte;
    s:real;
begin
s:=0;
for i:=1 to n do
s:=s+m[i]/p;
Summ2:=s;
end;
function F(b,c:real;k:byte):real;//вычисление Y, если P6=0
begin
F:=b/(c+sqrt(c+k));
end;
var a:mas;
    k,m8:byte;
    b,c,p6,y:real;
begin
clrscr;
Massiv(a,k);
repeat
writeln('Введите 2 числа для поиска, второе больше:');
readln(b,c);
until c>b ;
p6:=Summ1(a,k,b,c);
m8:=Kol(a,k,b,c);
if p6<>0 then
 begin
  writeln('P6=',p6:0:2);
  writeln('Сумма=',Summ2(a,k,p6):0:2);
 end
else
 begin
  writeln('P6=0');
  writeln('Y=',F(b,c,m8):0:2);
 end;
readln
end.