9. Типизированные файлы. Паскаль АВС

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