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

[kardan]

дан файл f, элементы которого являются действительными числами.
найти наименьшее из значений элементов с четными номерами.

я так понял что мы вводим только элементы с четными номерами?

var f:file of real;
r,min:real;
i:integer;
begin
assign(f,'c:\t1.dat');
rewrite(f);
reset(f);
read(f,r,min); i:=2;
while not eof(f) do
begin
read(f,r); inc(i);
if (i mod 2=0) and (r<min) then min:=r;
end;
close(f);
writeln(min);
readln;
end.

[kardan]

или я ввожу числа и прога должна выдать наименьшее из чисел с четными номерами?

[Professor Hubert]

Сообщение от kardan

или я ввожу числа и прога должна выдать наименьшее из чисел с четными номерами?

Лучше сперва заполнить файл случайными числами.
Перед поиском минимального значения переменной min присвоить значение второго элемента (1 четного).