Структурированные типы данных. Файлы

program Zadanie101;
var
  a,b: array [1..100] of real;       // Переменные для хранения массивов.
  i: integer;           //  Промежуточная переменная для организации циклов.
  n: integer;         // Переменная для хранения значений количества элементов в файле.
  x: real;                //   Промежуточная переменная для хранения значения введенного числа.
  f1,f2: file of real;  //  Файловые переменные.
begin
assign(f1,'data01.dat');    // Файловая переменная f1 связывается с именем первого файла.
write('Введите количество чисел, которые хотите ввести в файл: ');
Readln(n);
rewrite(f1);           //  Установка файловой переменной на запись.
for i:=1 to n do
  begin
  write('Введите число: ');
  readln(x);            //   Считывание числа из консоли.
  write(f1,x);          //   Запись числа в файл.
  end;
reset(f1);             //   Установка файловой переменной на чтение.
writeln;
writeln('Информация, записанная в первом файле:');
i:= 1;
while not EOF(f1) do       //  Цикл для чтения информации из файла.
 begin
 read(f1,a[i]);           //  Чтение информации из файла в массив.
 write(a[i]:7:2);          //  Вывод чисел из массива на экран.
 if i mod 10 = 0 then      //  Если выведенных чисел больше 10, то начинать с новой строки.
   writeln;
 inc(i);
 end;
n:= FileSize(f1);         // Передача переменной n значения количества элементов файла.
Close(f1);                 // Закрытие первого файла.
writeln;
for i:=1 to n do            // Цикл для работы с двумя массивами.
  begin
  if i = 1 then
    b[1]:= (a[1]+ a[2])/2    //  Вычисление значений новой последовательности.
  else
    b[i]:= (a[i-1]+ a[i])/2
  end;
assign(f2,'data02.dat');     //  Файловая переменная f2 связывается с именем второго файла.
rewrite(f2);                 //  Установка файловой переменной на запись.
for i:= 1 to n do             //  Запись значений вычисленной последовательности в новый файл.
  write(f2,b[i]);
reset(f2);                    //  Установка файловой переменной на чтение.
writeln;
writeln('Информация, записанная в втором файле:');
i:= 1;
while not EOF(f2) do          //  Цикл для чтения информации из файла.
 begin
 read(f2,x);                  //  Чтение информации из файла в промежуточную переменную.
 write(x:7:2);               //  вывод информации из промежуточной переменной на экран.
 inc(i);
 end;
Close(f2);                  //  Закрытие второго файла.
Readln;
end.