Народ помогите у меня ошибка только в третьем задании
Определить наименьший по модулю элемент среди нечетных по номеру элементов трпетьей четверти массива
Программа:

Program LR5V23;
Const n=37;a=-9;b=6;
Var
min ,Buf,i,k:integer;
F:array[1..N] of integer;
c,p:real;
begin Randomize;
Writeln ('Vector f=');
For i:=1 to n do begin
F[i]:=a+Random(b-a);
Write (F[i]:4);
end;
Writeln;
P:=0;k:=0;
i:=round (n/2);
While i<=n do Begin
If F [i]<>0 Then Begin
k:=k+1;P:=p+1/F[i];
end;
i:=i+1;
end;
Writeln ('p=',p:8:4);
min:=9;
For i:=Round (n/2) to round(3*n/4) do
If I mod 2=0 then
If abs (f[i])<min Then min:=abs(f[i]);

Writeln ('min=',min:4);
For i:=N div 3 to N-1 Doтут препод докапался
For k:=i+1 to N -1 do
If(F[i]<0) AND (F[k]<0) Thenи вот тут непойму в чем ошибка
if 1/F[i]<1/F[k] then begin
Buf:=F[i];
F[k]:=F[k];
F[k]:=buf;
end;
For i:=(n div 4 ) to (2*N div 4) Do
IF F[i]<0 Then Write (F[i]:4);
Writeln;
end.


помогите пожалуйста мне просто завтра зачет сдавать(