Решение задач с использованием типизированных файлов

program Zadanie121a;
type
  TArr = array [1..100] of real;
var
  ff: file of TArr; // Файловая переменная.
  i: integer;       // Вспомогательная переменная для организации цикла.
  a: TArr;          //  Вспомогательная переменная для хранения массива.
 
begin
Randomize;               // Инициация генератора случайных чисел.
assign(ff,'data001.dat');  // Связывание файловой переменной с именем файла.
Rewrite(ff);                // Установка файловой переменной в режим записи информации.
for i:= 1 to 100 do         // Цикл для перебора индексов массива.
  a[i]:= (random(2001) - 1000)/10; //  Запись случайных вещественных чисел в массив.
write(ff,a);                     //  Запись массива в файл.
Close(ff);
Writeln('Информация была записана в файл.'); // Вывод оповещения о конце работы программы.
Readln;
end.

program Zadanie121b;
type
  TArr = array [1..100] of real;
var
  ff: file of TArr; // Файловая переменная.
  i: integer;       // Вспомогательная переменная для организации цикла.
  a: TArr;          //  Вспомогательная переменная для хранения массива.
  min: real;            // Вспомогательная переменная для нахождения минимального элемента.
begin
assign(ff,'data001.dat');   // Файловая переменная связывается с именем файла.
Reset(ff);                  // Файловая переменная устанавливается в режим чтения информации.
while not EOF(ff) do
begin
  read(ff,a);                // Чтение информации из файла.
end;
Close(ff);
min:= 1E63;
Writeln('Исходный массив:');
for i:= 1 to high(a) do      // Цикл для перебора индексов массива.
 begin
  write(a[i]:6:1);           // Вывод значений массива на экран.
  if i mod 10 = 0 then       // Переход на новую строку после вывода 10 элемента.
    writeln;
  if a[i] < min then         // Условия поиска минимального элемента.
    min:= a[i];
 end;
Writeln;
Writeln('Наименьший элемент массива:', min:5:1);  // Вывод значения минимального элемента.
Readln;
end.