не могу разобраться

[as1212]

Помогите не могу разобраться

Сформируйте файл модулей целых чисел. Найдите Меньше из значений компонентов с нечетными номерами.

PROGRAM lab12;
USES CRT;
VAR F:FILE OF INTEGER;
N,S,K,min,i:INTEGER;
 C:CHAR;
BEGIN CLRSCR;
ASSIGN(F,'D:\FA.txt');
REWRITE(F);
WRITELN('enter celie chisla');
s:=0;   min:=-10000;
WHILE n<>100 DO
begin
READLN(n);
s:=s+1;
end;
N:=abs(n);
WRITE(F,n);
RESET(F);
WRITELN('soderganie faila:'); WRITEln(S);
while not eof(f) do
begin
READ(F,N);
for i:=1 to s do
begin
if i mod 2<>0 then
IF n<min THEN
begin
 min:=n;
end;
end;
WRITELN(min:2);
end;
CLOSE(F);
READKEY;
end.