Сформировать типизированный последовательный файл, компоненты которого вычисляются по формуле

const
  n = 10 ;
type  fpt = file of real;
var
  F: file of real;
  i: integer;
  
  {Формирование типизованого последовательного файла}
procedure inputData (n: integer; var fbin: fpt); 
var i:integer;
    x:real;
begin
writeln('Компоненти типизованого последовательного файла: ');
rewrite(fbin);
x:=0;
  for i:=1 to n do
  begin
  x:=sqrt(2+x);
  write(fbin,x);
  writeln(x);
  end;
close(fbin);
end;
 
function min (var fbin:fpt):real;
var tmp,minnumber:real; i:integer;
begin
i:=0;
reset(fbin);
   while not eof(f) do
   begin
   inc(i);
   read(f,tmp); 
     if (i=2) then
     minNumber:=tmp;
   end;
close(fbin);
i:=0;
reset(fbin);
  while not eof(f) do
  begin
  inc(i);
  read(f,tmp);
    if (i mod 2 = 0) then
    begin
      if (minNumber >= tmp) then
      begin
      minNumber:=tmp;
      end;
    end;
  end;
close(fbin);
min:=minNumber;
end;
begin
  Assign(F, 'lab2.dat');
  rewrite(F);
  inputData(10, F);
  min(F);
  //writeln(min);
  
  //for i := 1 to n do
    //write(F, inputData());
  //writeln('Найменший значение компонентов с чётным номером: ', min );
  Reset(F);
  
  Close(F);
end.

const
  n = 12 ;
type  fpt = file of real;
var
  F: file of real;
  i: integer;
  minNumber:real;
  
  {Формирование типизованого последовательного файла}
procedure inputData (n: integer; var fbin: fpt); 
var i:integer;
    x:real;
begin
writeln('Компоненти типизованого последовательного файла: ');
rewrite(fbin);
x:=0;
  for i:=1 to n do
  begin
  x:=sqrt(2+x);
  write(fbin,x);
  writeln(x);
  end;
close(fbin);
end;
 
function min (var fbin:fpt):real;
var tmp,minNumber:real; i:integer;
begin
i:=0;
reset(fbin);
   while not eof(f) do
   begin
   inc(i);
   read(f,tmp); 
     if (i=2) then
     minNumber:=tmp;
   end;
close(fbin);
i:=0;
reset(fbin);
  while not eof(f) do
  begin
  inc(i);
  read(f,tmp);
    if (i mod 2 = 0) then
    begin
      if (minNumber >= tmp) then
      begin
      minNumber:=tmp;
      end;
    end;
  end;
close(fbin);
min:=minNumber;
end;
 
begin
  Assign(F, 'lab2.dat');
  //RewRite(F);
  inputData(12, F);
  //min(F);
  
   writeln();
  for i := 1 to n do
    //write(F, inputData());
  
  minNumber:= min(F);
  Reset(F);
  writeln('Найменший значение компонентов с чётным номером: ');
  writeln(minNumber);
  
  
  Close(F);
end.

Program P2_z2_v1_;
const
  n = 12 ;
type
  Fpt = file of real;
var
  F: file of real;
  i: integer;
  minNumber: real;
                   {Формируем типизованный последовательный файл}
procedure inputData(n: integer; var Fbin: Fpt);
var
  i: integer;
  x: real;
begin
  writeln('Компоненти типизованого последовательного файла: ');
  RewRite(Fbin); // Открываем текст-файл в кодир win Если файл сущест-ет,- то обнуляется 
                //или создаётся новый 
  x := 0;
  for i := 1 to n do
  begin
    x := sqrt(2 + x);
    write(Fbin, x);
    writeln(x);
  end;
  close(Fbin);              // закрываем текст-файл в кодировке win
end;
                          // Определяем минимальное чётное
function min(var Fbin: Fpt): real;
var
  tmp, minNumber: real;
  i: integer;
begin
  i := 0;                   // начинаем с нуля
  reset(Fbin);              // открываем текст-файл в кодировке win
  while not eof(f) do      // начать цыкл и продолжать пока не законсится файл
  begin
    inc(i);                // увеличивать значение переменной i на 1
    read(F, tmp);          // выводитьзначения если чётные
    if (i mod 2 = 0) then 
    begin                   // выводитьзначения если минимально
      if (minNumber >= tmp) then
      begin
        minNumber := tmp;
      end;
    end;
  end;
  close(Fbin);                // закрываем текст-файл в кодировке win
  min := minNumber;
end;
 
begin
  Assign(F, 'lab2.dat'); // Связываем файловую переменную с файлом на диске
  //RewRite(F);            // Открываем текстовый файл для записи в кодир Win
  inputData(25, F);        // Определяем кол-во входных данных файловой переменной
  writeln();
  for i := 1 to n do
    minNumber := min(F);
  Reset(F);                 // открываем текст-файл в кодировке win
  writeln('Найменшие значение компонентов с чётным номером: ');
  writeln(minNumber);
  Close(F);
end.

const n = 10 ;
type  fpt = file of real;
{функция нахождения компонента k}
function f(k:integer):real;
var i:integer;
    x:real;
begin
x:=sqrt(2);
for i:=k-1 downto 1 do
x:=sqrt(2+x);
f:=x;
end;
 
{Формирование типизованного последовательного файла}
procedure inputData (var fbin: fpt);
var i:integer;
    x:real;
begin
writeln('Компоненты типизованного последовательного файла: ');
rewrite(fbin);
for i:=1 to n do
 begin
  x:=f(i);
  write(fbin,x);
  writeln(x:0:6);
 end;
end;
 
{определение минимального с четным номером}
function min (var fbin:fpt):real;
var tmp,minnumber:real;
    i:integer;
begin
i:=1;
seek(fbin,i);
read(fbin,minnumber);
while i<filesize(fbin)-2 do
 begin
  inc(i,2);
  seek(fbin,i);
  read(fbin,tmp);
  if tmp<minnumber then minnumber:=tmp;
 end;
close(fbin);
min:=minnumber;
end;
var t:fpt;
begin
Assign(t, 'lab2.dat');
rewrite(t);
inputData(t);
writeln('Минимальный с четным номером=',min(t):0:6);
end.