помогите найти ошибку плиииз!

[templllar]

program ex314; uses crt;
const n=7; x1=0; x2=25;

type mas=array[1..n] of integer;
var i:integer;
kol1,kol2:integer;
c:mas;

function f (a:mas):real;
begin f:=ln(a);
end;

procedure g (a:mas; var k1,k2:integer);
begin for i:=1 to n do begin
if f(a) >=0 then k1:=k1+1 else k2:=k2+1; end;
writeln('kol1=',k1); writeln('kol2=',k2);
end;

begin clrscr;

randomize;
for i:=1 to n do
c[i]:=random(x2-x1)+x1;
for i:=1 to n do begin
write(c[i]:4); end;
g(c,kol1,kol2);
readln;
end.

[Карась]

function f (a:mas):real;
begin
f := ln(a); - логарифм от массива?
end;

А что должна делать эта программа?

[Alter]

Скажите что вас именно интересует, невыходит.
Нет вопросов конкретных, нет ответов.

[templllar]

функция считает логарифм из элементов массива. Она находится в процедуре в кач-ве формального параметра

[alexBlack]

А что не устроило здесь ?

http://www.programmersforum.ru/showthread.php?t=17133

Чтобы передать функцию в качестве параметра ее нужно описать

type
myFunc = function (x:real):real;

В процедуре описываем параметр:

procedure g (a:mas; var k1,k2:integer; f:myFunc);
begin
    ...
    f(a[i])   { При вызове в функцию передается элемент массива, а не массив}

Берем любую функцию с соответствующими параметрами

function fff(a:real):real;
begin 
    fff:=ln(a);
end;

Эту функцию можно передать процедуре при вызове:

g (a, k1, k2, fff);

[templllar]

спасибо за помощь, попробую