Типизированные файлы: поиск элементов с заданными свойствами

var
  f:file of real;
  x,minChet,min,max,s:real;
  i:integer;
begin
  assign(f,'1.real');
  reset(f);
  if fileExists('1.real') then
    begin
seek(f,filesize(f));
     end
     else rewrite(f);
 writeln('Содержимое ');
  for i:=1 to filesize(f) do
    begin
      read(f,x);
      write(x:5:1);
    end;
  {минимального компонента с четным номером}
   seek(f,1);
  read(f,x);
  minChet:=x;
  i:=3;
  while i<=filesize(f)-1 do
    begin
      seek(f,i);
      read(f,x);
      if x<minChet then
        minChet:=x;
      inc(i,2);
    end;
  {Поиск суммы квадратов}
  s:=0;
  seek(f,0);
  while not eof(f) do
    begin
      read(f,x);
      s:=s+sqr(x);
    end;
  {Поиск суммы мин и макс компонента}
  seek(f,0);
  read(f,x);
  min:=x;max:=x;
  while not eof(f) do
    begin
      read(f,x);
      if x>max then
        max:=x
      else if x<min then
        min:=x;
    end;
  close(f);
  {Результаты}
  writeln;
  writeln('Min komp s chet nomerom=',minChet:0:1);
  writeln('Summa kvadratov komp faila=',s:0:1);
  writeln('Summa min i max komp faila=',min+max:0:1);
end.

Uses crt;
Var f:file of real;
    a,max,summ,min,min1:real;
    i,r:integer;
Begin
 assign(f,'c:\file_vech_chisla.dat');
 reset(f);
 r:=filesize(f);a:=0; Writeln('Ñîäåðæèìîå ôàéëà:');
 For i:=1 to r-1 do
 begin
  read(f,a);Write(a,' ');
  If i=1 then begin max:=a;min:=a;end;
  If a>=max then max:=a;
  If a<=min then min:=a;
  If (a<=min)and(i mod 2=0) then min1:=a;
  summ:=summ+sqr(a);
 end;
 a:=min+max;Writeln;
 Writeln('íàèìåíüøåå èç çíà÷åíèé êîìïîíåíò ñ ÷åòíûìè íîìåðàìè=',min1);
 Writeln('ñóììà êâàäðàòîâ êîìïîíåíò ôàéëà =',summ:0:4);
 Writeln('ñóììà íàèáîëüøåãî è íàèìåíüøåãî èç çíà÷åíèé êîìïîíåíò =',a);
 close(f);
end.