Произведение положительных элементов массива (Блок схема)

program ex;
 
const
 diskname: string='c:';
 pathname: string='\files\';
 filename: string='IN.arr';
 
Function Grin1(dname, pname, fname: string): Integer;
 
var
f: file of shortint;
j: shortint;
s: integer;
 
Begin
assign (f, dname+pname+fname);
reset(f);
 
s:=1;
while not eof(f) do begin
read(f,j);
if j>0 then s:=s*j;
end;
close(f);
Grin1:=s;
end;
 
Function Grin2(dname, pname, fname: string): Integer;
 
var
f: file of shortint;
j: shortint;
sm,min: integer;
minq,p: integer;
 
Begin
assign (f, dname+pname+fname);
reset(f);
 
read(f,j);
min:=j;
minq:=1;
while not eof(f) do begin
read(f,j);
if j<min then begin minq:=filepos(f); min:=j; end;
end;
sm:=0;
seek(f,0); p:=0;
while p<>minq-1 do begin
read(f,j); p:=p+1; sm:=sm+j;
end;
close(f);
Grin2:=sm;
end;
 
var
 f: file of shortint;
 j: shortint;
begin
 assign (f, diskname+pathname+filename);
 reset(f);
while not eof(f) do begin read(f,j); writeln(j); end;
 
 writeln ('произведение положительных элементов=',
         Grin1(diskname, pathname, filename));
 writeln ('сумма элементов массива=',
         Grin2(diskname, pathname, filename));
 
readln;
end.