Найти наименьшее из значений компонент с четными номерами - Pascal ABC

Формулировка задачи:

Дан файл f, компоненты которого являются действительными числами. Найти: а) наименьшее из значений компонент с четными номерами; б) разность первой и последней компонент файла.

                    Листинг программы
                
 
                        
                          
                    
program srs;
uses crt;
var f: file of real;
      n,min,a,b:real;
      i,num:integer;
begin
assign(f,'C:\srs3.txt');
rewrite(f);
repeat
writeln('Г‚ГўГҐГ¤ГЁГІГҐ Г·ГЁГ±Г«Г*');
readln(n);
write (f,n);
until  n=100;
close(f);
assign(f,'C:\srs3.txt');reset(f);
read(f,a);
i:=1;
writeln ('Г„Г*Г*Г*Г»ГҐ Гў ГґГ*Г©Г«ГҐ:');
repeat
inc(i);
read(f,n);
writeln(n);
If not odd(i) and (n<min) then
begin
num:=i;
end;
until eof(f);
b:=n;
close(f);
writeln('a) наименьшее из значений компонент с четными номерами; ',min);
writeln('ГЎ) разность первого и последнего: ',a,'-',b,'=',a-b);
end.

Не выводит результат "наименьшее из значений компонент с четными номерами" вроде все правильно, подскажите где ошибка?

Решение задачи: «Найти наименьшее из значений компонент с четными номерами»

Листинг программы

  if i=2 then
    min:=n
  else
    if (odd(i) and (n<min)) then
      min:=n;

Объяснение кода листинга программы

Переменная i принимает значения от 1 до 20.
Если i равно 2, то значение переменной min устанавливается равным значению переменной n.
В противном случае, если i не равно 2 и n меньше текущего значения min, то значение переменной min устанавливается равным значению переменной n.
Код не использует вложенные списки.
Код выполняет поиск наименьшего из значений компонент с четными номерами.