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

uses crt;
var f:file of real;
    a,b,mn,mx,mc,mm,s,r:real;
    i:integer;
begin
randomize;
//создадим файл
assign(f,'fileF');
rewrite(f);
for i:=1 to 15 do
 begin
  a:=-5+10*random;
  write(f,a);
 end;
writeln('Содержание файла');
seek(f,filesize(f)-1);
read(f,b);
seek(f,0);
read(f,a);
r:=a-b;//разность первой и последней
write(a:5:1);
mn:=a; //минимум
mx:=a;//максимум из всех
mm:=a;//максимум из модулей с нечетными номерами
for i:=1 to filesize(f)-1 do
 begin
  read(f,a);
  write(a:5:1);
  if a<mn then mn:=a
  else if a>mx then mx:=a;
  if i=1 then mc:=a
  else if odd(i)and(a<mc) then mc:=a;//индекс нечетный, номер четный и наоборот
  if (i mod 2=0)and(abs(a)>abs(mm)) then mm:=a;
 end;
close(f);
writeln;
writeln('Наибольшее значение всех компонент=',mx:0:1);
writeln('Наименьшее значение компонент с четными номерами=',mc:0:1);
writeln('Наибольшее значение модуля компонент с нечетными номерами=',mm:0:1);
s:=mx+mn;
writeln('Сумма наибольшего и наименьшего=',s:0:1);
writeln('Разность первой и последней компонент=',r:0:1);
end.