Реверс массива неизвестной длины - Pascal

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

Здравствуйте,помогите пожалуйста написать программу.Напишите программу, которая выполняет реверс массива целых чисел, то есть переставляет все элементы в обратном порядке. Размер массива заранее неизвестен. Исходные данные записаны в файл input.txt , обработанный массив нужно вывести в файл output.txt . Входные данные Первая строка входного файла input.txt содержит размер массива. Во второй строке записаны все элементы массива, разделённые пробелами. Выходные данные Программа должна вывести в файл output.txt все элементы «перевёрнутого» массива в одной строке, разделив их пробелами. Примеры входные данные 5 5 1 4 2 3 выходные данные 3 2 4 1 5

Решение задачи: «Реверс массива неизвестной длины»

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

var
  i,j,n:longint;
begin
  assign(input,'input.txt');
  reset(input);
  assign(output,'output.txt');
  rewrite(output);
  readln(n);
  close(input);
  while n>0 do begin
    reset(input);
    for i:=0 to n do read(j);
    write(j,' ');
    n:=n-1;
    close(input);
  end;
  close(output);
end.

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

Объявление переменных: i, j и n типа longint.
Открытие файла input.txt для чтения.
Создание файла output.txt для записи.
Чтение значения переменной n из файла input.txt.
Закрытие файла input.txt.
Запуск цикла: пока n больше 0, делаем следующее: 6.1 Открытие файла input.txt для чтения. 6.2 Цикл: для каждого значения i от 0 до n делаем следующее: 6.2.1 Чтение значения j из файла. 6.2.2 Запись значения j с пробелом в файл output.txt. 6.3 Уменьшение значения n на 1. 6.4 Закрытие файла input.txt.
Закрытие файла output.txt. Из кода видно, что он сначала читает число n из файла input.txt, а затем заполняет массив значениями из этого файла в обратном порядке, записывая их с пробелами в файл output.txt.