Задача на файлы Опции

[SoulDrinker]

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

[virt]

Код

program der_min_in_chet;
var a,first,min:real;
   ind:integer;

begin
  assign(input,'dmic.in');reset(input);
  read(a);first:=a;
  read(a);min:=a;ind:=2;
  while not seekeof do
     begin
        read(a);inc(ind);
        if (ind mod 2 = 0) and (a < min) then min:=a;
     end;
  writeln(min:0:6);
  writeln(first-a:0:6);
end.