Задача на текстовый фаил(паскаль) Опции

[nadea]

ПОжалуйста,напишите полный текст проги:
Дан текстовый фаил натуральных чисел,за которыми следует целое отрицательное число.
Используя рекурсивную подпрограмму,вычислиье сумму натуральных чисел файла
Заранее спасибо=))

[nadea]

function sum : longint;
var c:integer;
sm:longint;
begin
c := 0; sm := 0;
while (not eof(F)) and (c >= 0) do begin
readln(f, c);
if c >= 0 then sm := sm + c;
end;
sum := sm;
end;

// Это с рекурсией
function sum_R : longint;
var c:integer;
sm:longint;
begin
sm := 0;
if not eof(F) then begin
readln(f, c);
if c >= 0 then sm := c + sum_R;
end;
sum_R := sm;
end;

var h:longint;
begin
assign(f, 'file.txt');
reset(f);
h := sum;
close(f);
writeln('summa=',h);
end;

// Это с рекурсией
assign(f, 'file.txt');
reset(f);
h := sum_R;
close(f);
writeln('summa=',h);
end.
БЕЗ РЕКУРСИИ программа пашет,а с рекурсией-НЕТ.Подскажите,где может быть ошибка[u]