Найти наибольшее из значений компонент

Var f:file of real;
    i,n,m,l:byte;
    max,min,cmax,s,cmin,rz,t,a,b:real;
Begin
    Assign(f,'in.dat');Rewrite(f);
    write('Кол-во компонент файла? ');readln(n);
    For i:=1 to n do 
    Begin
      t:=random*10;
      write(f,t);
      write(t:5:2);
    End;
    Reset(f);
    dec(n);
    read(f,max);
    For i:=1 to n do
    Begin
      read(f,t);
      if t>max then max:=t;
    End;
    writeln;
    writeln('a) = ',max:0:2);
    Reset(f);
    read(f,min);
    read(f,cmax);
    For i:=2 to n do
    Begin
      read(f,t);
      if (t<min)and(i mod 2 = 0) then min:=t;
      if (t>cmax)and(i mod 2 <> 0) then cmax:=t;
    End;
    writeln('б) = ',min:0:2);
    writeln('в) = ',cmax:0:2);
    Reset(f);
    write('Введите [a,b](через пробел): ');readln(a,b);
    For i:=1 to n do
    Begin
      read(f,t);
      if (t>=a)and(t<=b) then s:=s+t;
    End;
    writeln('г) = ',s:0:2);
    Repeat
     write('Введите [m,l](через пробел): ');readln(m,l);
    Until (m<l)and(l<=n);
    Seek(f,m);
    read(f,cmin);
    For i:=m+1 to l do
    Begin
      Seek(f,i);
      read(f,t);
      if t<cmin then cmin:=t;
    End;
    writeln('д) = ',cmin:0:2);
    Seek(f,0);
    read(f,t);
    rz:=t;
    Seek(f,n);
    read(f,t);
    writeln('е) = ',rz-t:0:2);
End.