Господа срочно нужна ваша помощь

[PIRLOмутровый Итальянец]

type
seria=File of real;
описать функцию Minus(s), подсчитывающую сумму отрицательных элементов в серии S. (В Паскале)
Очень нада к завтрешнему дня. Заранее благодарен

[somewhere]

Function Minus(S:Seria):Real;
Var RVal: Real;
begin
Reset(S);
Result := 0;
While not eof(S) do
begin
Read(S, RVal);
If RVal<0 then Result := Result + RVal;
end;
end;