9. типизированные файлы. паскаль авс создать типизированный файл действительных чисел (file of real). описать функцию negativ(s), подсчитывающую сумму отрицательных чисел в файле s. реализовать подсчет суммы отрицательных чисел с функции в программе.

//Не уверена в этом
var f:file of real;
r:integer;

function negativ(var f:file of real):integer;
var r:real;
k:integer;
begin;
assign(f,'text.txt');
reset(f);
while not(Eof(f)) do
begin;
read(f,r);
if r<0 then inc(k);
end;
close(f);
negativ:=k;
end;

begin;
r:=negativ(f);
writeln(r);
end.