Типизированиые файлы

F : File of Integer;
 i, Num, NumMax,NumMin : real;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 
begin
 AssignFile(F, FileName);
  //Создаём/пересоздаём файл и открываем его в режиме "только запись".
  Rewrite(F);
  //Инициализация генератора случайных чисел.
  Randomize;
  //Создаём N случайных целых чисел и записываем их в файл.
  for i := 1 to N do begin
    Num := -50 + Random(101); //-50..50.
    Write(F, Num);
  end;
  //Открываем ранее созданный файл в режиме чтение/запись.
  Reset(F);
  //Читаем последовательно элементы файла и ищем среди элементов с нечётными номерами
  //наибольший по модулю.
  i := 1; //Счётчик элементов.
  NumMax := 0;
  while not Eof(F) do begin
   Inc(i);
    Read(F, Num);
    if i = 2 then
      NumMin := Num
    else if (i mod 2 = 0) and (Num < NumMin) then
      NumMin := Num;
  end;
  //Закрываем файл.
  CloseFile(F);
  //Показ результатов.
   if i >= 2 then
    ShowMessage('Наименьший из элементов с чётными порядковыми номерами: ' + FloatToStr(NumMin))
  else
    ShowMessage('В файле менее двух элементов.');
end;

var
  F : File of Extended;
  Num, NumMin : Extended;
  i : Integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  AssignFile(F, FileName);
  //Создаём/пересоздаём файл и открываем его в режиме "только запись".
  Rewrite(F);
  //Инициализация генератора случайных чисел.
  Randomize;
  //Создаём N случайных вещественных чисел и записываем их в файл.
  for i := 1 to N do begin
    Num := (Random - 0.5) * 100; //-50.XXX..50.XXX.
    Write(F, Num);
  end;
  //Открываем ранее созданный файл в режиме чтение/запись.
  Reset(F);
  //Читаем последовательно элементы файла и ищем среди них наименьший элемент.
  i := 0; //Счётчик элементов.
  NumMin := 0;
  while not Eof(F) do begin
    Read(F, Num);
    Inc(i);
    if i = 2 then
      NumMin := Num
    else if (i mod 2 = 0) and (Num < NumMin) then
      NumMin := Num;
  end;
  //Закрываем файл.
  CloseFile(F);
  
  //Показ результатов.
  if i >= 2 then
    ShowMessage('Наименьший из элементов с чётными порядковыми номерами: ' + FloatToStr(NumMin))
  else
    ShowMessage('В файле менее двух элементов.');
end;

AssignFile(F, 'my_file');

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
var
  F : File of Extended;
  Num, NumMin : Extended;
  i : Integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var n:integer;
begin
  AssignFile(F, 'my_file');
  n:=20;
  //Создаём/пересоздаём файл и открываем его в режиме "только запись".
  Rewrite(F);
  //Инициализация генератора случайных чисел.
  Randomize;
  //Создаём N случайных вещественных чисел и записываем их в файл.
  for i := 1 to N do begin
    Num := (Random - 0.5) * 100; //-50.XXX..50.XXX.
    Write(F, Num);
  end;
  //Открываем ранее созданный файл в режиме чтение/запись.
  Reset(F);
  //Читаем последовательно элементы файла и ищем среди них наименьший элемент.
  i := 0; //Счётчик элементов.
  NumMin := 0;
  while not Eof(F) do begin
    Read(F, Num);
    Inc(i);
    if i = 2 then
      NumMin := Num
    else if (i mod 2 = 0) and (Num < NumMin) then
      NumMin := Num;
  end;
  //Закрываем файл.
  CloseFile(F);
  
  //Показ результатов.
  if i >= 2 then
    ShowMessage('Наименьший из элементов с чётными порядковыми номерами: ' + FloatToStr(NumMin))
  else
    ShowMessage('В файле менее двух элементов.');
end;
end.