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

var
  f: file of Real;
  min, r: Real;
  n, i: Byte;
 
begin
  randomize;
  {создадим файл}
  Assign(f, 'f.txt');
  rewrite(f);
  write('Сколько чисел записать в файл n=');
  readln(n);
  for i := 1 to n do
  begin
    r := 10 * random;
    write(f, r)
  end;
  reset(f);
  writeln('Содержание исходного файла');
  while not (eof(f)) do
  begin
    Read(f, r);
    write(r:8:2, ' ');
  end;
  writeln;
  seek(f, 0);
  read(f, min);
  i := 1;
  while i < filesize(f) do
  begin
    seek(f, i);
    read(f, r);
    if r < min then 
      min := r;
    i := i + 2;
  end;
  Writeln('Наименьший компонент с четным номером=', min:0:2);  
  i := 0;
  while i < filesize(f) do
  begin
    seek(f, i);
    write(f, min);
    i := i + 2;
  end;
  reset(f);
  while not eof(f) do
  begin
    read(f, r);
    write(r:8:2);
  end;
  Close(f);
  
end.