Написать функцию которая считает сумму всех положительных чисел

program f3;
uses crt;
procedure input;
var
name: string;
n,i: integer;
f:file of integer;
b:integer;
begin
writeln('Введите количество чисел ');
readln(n);
writeln('Введите имя файла ');
readln(name);
assign(f,name);
rewrite(f);
for i:=1 to n do
begin
writeln('Значение числа ',i,'= ');
read(b);
write(f,b);
end;
close(f);
end;
 
function  sum : integer;
var
f:file of integer;
name: string;
i,d,s: integer;
begin
 s:=0;
writeln('введите имя файла');
readln(name);
assign(f,name);
reset(f);
for i:=1 to filesize(f) do
begin
    read(f,d);
    if d>0 then d:=d+1;
         end;
close(f);
   end;
   
begin
input;
if sum>0 then s:=s+d;
  writeln('s=',s);
end.

program f3;
uses crt;
type tfile=file of integer;
procedure input(var f:tfile);
var name: string;
    n,i,b: integer;
begin
writeln('Введите количество чисел ');
readln(n);
writeln('Введите имя файла ');
readln(name);
assign(f,name);
rewrite(f);
for i:=1 to n do
 begin
  writeln('Значение числа ',i,'= ');
  readln(b);
  write(f,b);
 end;
close(f);
end;
 
function  sum(var f:tfile):integer;
var name: string;
    i,d,s: integer;
begin
s:=0;
repeat
writeln('введите имя файла');
readln(name);
if not fileexists(name) then writeln('Файла с таким именем нет, повторите ввод');
until fileexists(name);
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,d);
  if d>0 then s:=s+d;
 end;
close(f);
sum:=s;
end;
var f:tfile;
begin
input(f);
writeln('Сумма положительных=',sum(f));
end.