Функция. Действительные числа. Опции

[Анна]

Написать ф-ию, которая для компонентного файла, состоящего из действительных чисел, возвращает кол-во компонентов, меньших нуля.

Получилось что-то вроде:

function calc(s:string):integer;
var b:real;
     i:integer;
     f:file of real;
begin

assign(f,s);
reset(f);
while not eof(f) do begin
 read(f,b);
 if b<0 then inc(i);
end;

close(f);
end;


var
s: string;

begin
writeln ('Введите имя файла: '); readln(s);
calc:=i;
end.

Как использовать самц ф-ию в программе???