Создать массив, содержащий компоненты файла, отсортировать и записать в другой файл - Pascal

Формулировка задачи:

Дан текстовый файл input.txt, содержащий действительные числа (количество чисел в файле не превышает 1000). Создать массив, содержащий компоненты этого файла. Отсортируйте все числа по возрастанию. Записать измененный массив в файл output.txt.

Решение задачи: «Создать массив, содержащий компоненты файла, отсортировать и записать в другой файл»

Листинг программы

var f:text;
    a:array[1..1000] of real;
    n,i,j:integer;
    x:real;
begin
assign(f,'input.txt');
reset(f);
n:=0;
while not seekeof(f) do
 begin
  n:=n+1;
  read(f,a[n]);
 end;
close(f);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
assign(f,'output.txt');
rewrite(f);
for i:=1 to n do
write(f,' ',a[i]:0:2);
close(f);
writeln('Отсортированный массив записан в файл output.txt');
end.

Объяснение кода листинга программы

Создается переменная f типа text, которая представляет собой ссылку на файл.
Создается переменная a типа array[1..1000] of real, которая представляет собой массив для хранения чисел.
Создаются три переменные n, i и j типа integer, которые будут использоваться для итерации по массиву и сравнения чисел.
Создается переменная x типа real, которая будет использоваться для временного хранения наибольшего числа.
Открывается файл input.txt для чтения.
Запускается цикл чтения файла до конца. В каждой итерации цикла число из файла записывается в соответствующий элемент массива a.
После завершения чтения файла файл закрывается.
Запускается вложенный цикл, который проходит по всем элементам массива a от i=1 до n-1 и j=i+1 до n.
Внутри вложенного цикла сравниваются текущие два элемента массива a. Если первый элемент больше второго, то числа меняются местами.
После завершения вложенного цикла наибольшее число записывается в переменную x.
Открывается файл output.txt для записи.
Запускается цикл записи чисел из массива a в файл output.txt. Каждое число записывается с ведущим пробелом для форматирования.
После завершения записи файл output.txt закрывается.
Выводится сообщение Отсортированный массив записан в файл output.txt.
Программа завершается.