средне горманическое значение

[nazamat]

найдите пожалуйста ошибку в этой части программы(
ищу средне горманическое значение каждых третьих элементов последней четверти массива
вот по этой формуле http://fotoifolder.ru/view_foto/9378/

function sgz(n:integer;f:vect):real;
var i,j,k:integer;
s:real;
begin
s:=0;
j:=1;
for i:=n-round(n/4)+1 to n do begin
if (f[i] <> 0) and (j mod 3=0) then begin
s:=s+1/f[i];
if f[i]>0 then k:=k+1;
end;
j:=j+1;
end;
if s<>0 then
sgz:=k/s
else
sgz:=0;
end;