Получилось что-то вроде:
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.
Как использовать самц ф-ию в программе???